IO EI ES NISSAN IE‏ ا ف 


0345 — F1 POP HF 
9346 DI РОР ТЕ 
A347 СӘХ RET Finito (return? 


Normalmente l'emissione di un carattere avviene su wideo nella INTER- 
RUPT ROUTINE, allo scopo di evitare il tremolio che altrimenti si veri- 
fica. L'INTERRUPT viene Prodotto dal video-IC durante il tempo di ri- 
torno del raggio elettronico (50 volte Per secondo), La routine di e- 
missione depone quindi i caratteri in un Buffer, da cui vensono letti 
dalla INTERRUPT routine. L'indirizzo del cursore viene memorizzato in 
7820/7821, la Posizione di colonna іп 78A6, 


308B F5 PUSH AF Salvataggio caratteri 
308C 3A3B78 LD Ai, € 783B) Serve Per controllare 
3208F CESF BIT З.Н MODE 

3091 2817 JR 2, 30AA Se modo testo 

3093 Е6Ғ? AND Ей su modo testo 

3095 323878 LD (7835), A commutare 

3098 320068 LD (6800), A 

INDI- CONTE- ASSEMBLER COMMENTO 


RIZZO NUTO DISASSEMELATO 


ЕС- lunghezza video 
HL= indirizzo memoria video 
Я-Н6С(77 470 


343E Giano: LD 
309E 210070 LD 
S0A1 3E24 LI 





3üH3 ` 77 Ln SPeaàne il 

30A4 23 INC video 

SOAS ЯВ DEC 

same Үз LD 

30A7 Ей UR 

gana 20F7 JR HZ, SOA 

AAA F1 POP AF Carattere di ritorno 

ЗЙНЕ 213978 LD HL, 7839 

ЗЙНЕ СЕЄЕ BIT 5, CHL? 

зара (СНй631 ЈР 2,3106 Se ritorno dall‘ INTERRUPT 

30B3 FEZA CP 20 

3ES n2Ccasa JP NC, 30C4 Se nessun segno di comando 

30B8 FS PUSH AF Salvataggio carattere 

30B9 ЗАВЕТА LD A, СӨННЕ) Controllo lunghezza 

308C B? OR A buffer 

30BD — 20FA JR MZ, 2089 Httende fino a che il Buffer e^ vuoto 

ЗӢЕЕ F1 POP HF Carattere di ritorno 

30004 ҒЗ DI Blocca 1“ INTERRUPT 

3001 2ABÖ7A LD HL, (7ABØ) HL= fine Buffer 

34C4 nra LD “Н.Я Caratteri nel Buffer 

3005 23 INC HL Incrementa il contatore 

3006 22B07A LD “7AE0).HL Mette un nuovo fine Buffer 

3009 — ZIAFZA LD HL, 7ZAAF Aumenta la 

3acc 34 INC ¢HL 2 lunehezza del Buffer 

3acn FS PUSH AF Salvata99io caratteri 

ЭйСЕ aHRe?8 LD A. (78A6) Colonna Pos. cursore 

23401 86 ADD A. CHL) + lunghezza del Buffer 

3002 22AE7A LD СҮННЕ),Н dopo ?RREH 

3005 F1 POP AF Caratteri di ritorno 

3006 ЕВ EI Inizio INTERRUPT 

3007 FEZ@A СР 20 

3009 DAE330 ЈР C, ЗВЕЗ Se codice comando 

3000 3Е14 LD н,14 

30DE ВЕ СР CHL? 

30DF — DRDESB ЈР С, SONE Attende fino a quando la lunghezza del 
Buffer e^ € 20 

30E2 C9 RET Finito 

30E2 AF хок A 

30E4 РЕ СР CHL? 

30E5 2AF D JR NZ, 30E4 Httende fino a che il Buffer e^ vuoto 

30E? (09 RET Finito 


EMISSIONE 50 CASSETTA 


Questa routine emette il contenuto di A su cassetta. I contenuti del 
registro rimangono invariati. 


INDI- CONTE- ASSEMBLER COMMENTO 

RIZZO NUTO DISASSEMELATO 

3911 F5 PUSH ЯЕ Salva il 

3912 C5 PUSH BE reaistro 

3513 ES PUSH HL 

3214 2Ena LD L-02 Contatore Per 8 Bits 
3516 67 LD H:A Byte secondo A 

3517 CI4235 CALL 3542 Da un breve segnale 
351A СЕЙ4 RLC H Bit 7 nel Carra 
3212 200D JR NC, 352E бе non fissato 

ЗеЛЕ О СПА2ЗБ CALL- 3642 2 brevi... 

3521 CI4235 CALL 3542 ‘impulsi 

3524 20 DEC L Ciclo di istruzioni 
3525 20FA JR MZ, 3517? 

35211 ET PAP HL Reaistro di 

3528. 01 POP EC ritorno 

chap JST РОР ЯЕ 

3528 СЭ RET Finito 


Ultimo valore della Porta 
Emette il 


3528 — 3H3B?8 LD 
352E FEBS OR 
3538 320068 LD segnale su 1 
3533 0699 LI Ciclo Per un 
3535 10FE DINZ 3535 impulso lunao 









ЕБЕЗ AND Emettere il 
LD segnale su й 
LD Ciclo Per un 


DINZ impulso lungo 





3 
3 
3 
3 
3 





18Е2 


SASB7S 





F6 


JR 
LI 
OR 
LD 
LI 
ПІН? 
AHD 
LD 
LI 
DINZ 
РЕТ 








Questa routine emette 
sulla stampante, 
In 739E 
L'emis 











avanti 

Ultimo valore della Port 
Emettere il 4 
seanale su 1 

Ciclo Per un 

impulso breve 





impulso breve 
Finito 


il carattere, il cui codice ASCII si trova in Я, 


la stampante Seikosha GP 160, 


INDI- 
RIZ 








AAC 
GAD 
AZAF 
ЯЗБІ 
йЗР4 
язВ= 
AZBE 
ЗВ? 
GSBA 
A3BE 
ZBE 
ИЗВЕ 
Azca 
A301 

AZE 
243E 
DOlE 
aac 
nale 
9046 
9372 
aaca 
4305 
BICE 
A308 
93с9 
a3cc 
зс 
ЗГЕ 
A3CF 
nana 
Dani 

9304 
nane 
6309 
азс 
asnn 
ЙЗПЕ 

ЗЕЙ 
ЙЗЕ1 

93Е2 


AZIONA 


INDI- 
RIZZO 


usan 
458E 
assF 
9591 
9593 
a595 
0597 
0599 
059A 
059D 
as9F 
asH2 
asHs 
SAE 
SAS 
SAB 
ASAD 
й5Вй 





I contenuti di resistro rimangono invariati. 
wiene memorizzato il carattere emesso secondo l'ultimo CR. 
ani arafici e caratteri inversi е” Possibile solo con 


CONTE- ASSEMBLER COMMENTO 

MUTO DI jSEMBLRTO 

FS PUSH AF Salvare il 

DS PUSH ПЕ registro 

25 PUSH ЕС 

4F Ln CA Salvataggio caratteri 
1EG0 Ln E. nn Contatore caratterizü 
FEAL CP ac 

281" JR Z,.W3B6 se FF 

FEAR СР dA 

2063 JR NZ, AZAD Se non LF 

SEDI Ln A, an Sostituisce LF.... 
4F LI CA con CR 

FEAD CP an 

2805 JR 2,9386 Se СЕ 

aH9B?S LD A, (789B) Incrementa il 

ac INC A conta caratteri 

SF LD EA Contacicli secondo E 
7B LD RE DContacicli... 

329878 LD C(?B9B».H secondo 789B 

79 Ln A.C Emissione dei 

CDIZEAA CALL AA3ZE caratteri 

C1 POP ЕС Registro 

DI РОР DE di ritorno 

Fi POP AF 

c9 RET Finito 

112578 LD ТЕ, 7825 Indirizzo blocco di controllo stamPante 
1808 JR AAIE Emissione 

C5 PUSH BC Salva BC 

9692 LD В,92 Fla9 di emissione 
1826 JR 0046 immissione/emissione 
СЗС203 JP 93с2 continuare 

ES PLISH HL Salvataggio del 

DIES PUSH ІХ registro 

ns PUSH ТЕ Indirizzo blocco di controllo... 
DDEI POP IK dopo IX 

DS PUSH DE 

211003 LD HL- 43ND Indirizzo salto indietro... 
ES PUSH HL sullo Stack 

4F LD CA Bste dopo C 

1R LD A, СПЕ? Tipo di blocco di controllo 
Ra AND B 

Ba CP В Esamina se 

023378 ЈР NZ, 7833 c'e” errore 

FED2 CP 92 Mette Flags 

DI6EGI LD L: CIX+01) Indirizzo di Partenza.. 
006692 LD H.iCIX+92) dopo HL 

E9 JP CHL) Esegue il (lancio) 
DI POP DE Re9istro di 

ІШЕ1 РОР IK ritorno 

E1 POP HL. 

ci POP BC 

c93 RET Finito 

la STAMPANTE 

CONTE- ASSEMBLER COMMENTO 

NUTO DISASSEMBLATO 

79 LD A.C Caratteri доро A 

B7 OR A 

2833 JR 2,4524 B=ignorare 

FEQE СР QB 

230A JR Z: 059F Se FF 

FEQC CP ac 

2014 JR NZ, ASAD Se non FF 

AF XOR A 

DDhB6u3 OR CIK+O3) 

280E JR 2,9581 Se ri9he/Ppa9ina = 0 
рргЕЙЗ LD Н,<Іх%й3) Ri9he/Padina meno... 
009604 SUE CIK+O4> righe stampante 

47 LD BA dopo В 

CDEZSA CALL 3AE2 Emette un CR 

10FE DINZ 9586 Ciclo 

1812 JR OSBF avanti 

CIBESA CALL 3RB6 Emette i caratteri 
79 LD A.C 

FED СР on 


B5B1 


| 





ASBI 
GS5B4 
ASB? 
ASBA 
ASBI 
OSE 
OSBF 
asca 


INDI- 
RIZZO 


2073 
2074 
2075 
2077 
227A 
207E 
2071 
207E 
2080 
2081 

2082 
2083 
2086 
2087 
2098 
2089 
2C08A 
2C8R 
2с8с 
2080 
2090 
2093 
2096 
2097 
2C9A 
2090 
2CA0 
2CA1 

2CA2 
2CR4 
2CA7 
3956 
3957 
3958 
3959 
395A 
395B 
395n 
395F 
3962 
3964 
3965 
3966 
3967 
3969 
3968 
396C 
3960 
3970 
3971 
3973 
3976 
3978 
3979 
397A 
397D 
397F 
2981 
3984 
3986 














Сӣ RET NZ 
103404 INC CIK+O4) 
DID7EG4 LD A, <IK+04) 
ППВЕйЗ СР CIK+O3) 
79 LD A-C 

ca RET NZ 
00360400 LD <IX+04),60 
сэ RET 

Прий ІМ A. Can» 
ЕЕЙ1 AND 41 

c3 КЕТ 

E7 OR A 
FADS3A ЈР MH. 3HD&8 
«F5 PLISH AF 
CDESSA CALL SAES 
D2C43A JP NC, SAC4 
Fi РОР AF 

ay SCE 

ca RET 

ПЕЙӢ IN A. сай» 
СЕ4? BIT A.A 

F1 POP AF 
Tut OUT (BEI, A 
nan OUT CAID.H 
FEAD СР an 

37 SCF 

3F CCF 

си РЕТ NZ 
ZEGA LI A. BH 
18E2 IR SABA 
CET? EIT BA 
CASAC ЈР 2.20 

н. 
AHEH 

CONTE- A MELER 
NUTO DISASSEMBLATO 
ca PUSH BC 

47 LI Б.Я 
ЗЕЙЕ LI AB 
CDEASA CALL 3ABA 
78 Ln A,B 
ESAF AND ØF 

ES PUSH HL 
CB27 SLA H 

4F LD CA 

AF XOR A 

47 LS EA 
21AFO2 LD HL, AZAF 
a ADD HL , EC 
?Е LD A» CHL? 
47 LD BA 

23 INC HL 

7E LD я, CHLÒ 
4F LI DA 

78 LI Н.Е 
CIBASA CALL SABA 
CDBASA CALL SABA 
CDBR3RH CALL SABA 
79 LD AC 
CIBASA CALL SABA 
CDEA3A CALL SABA 
CDBR3H CALL GABA 
E1 POP HL 

C1 POP BC 
SEOF LD A, OF 
CDEASA CALL SABA 
с9 RET 

FS PUSH AF 

c5 PUSH EC 

ns PUSH DE 

ES PUSH HL 

6F LD L-A 
2600 Ln H. 2û 
ЗЕЙВ LD A, 88 
CDBASA CALL SABA 
06094 Ln B. 04 
ES PUSH HL 

DI POP DE 

B? AR A 

EDSA ADC HL. DE 
160FC DINZ 2967 
ES PUSH HL. 

C1 POP EC 
21943B LD НІ, 3B94 
99 ADI HL, BC 
3EFF Ln RB. FF 
CDBR3H CALL SABA 
9695 LD BOS 
ТЕ LD A, CHL} 
23 INC HL 
CDBR3H CALL BABA 
10F9 ILINZ 3978 
3EFF Ln R.FF 
CDEASA CALL ZABA 
3EOF Ln AL AF 
CIBR3R CALL ABA 


Se non CR INDI- 
Incrementa il conta-ri9he RIZZO 
Confronta il conta-ri9he... 
con rishe/Pa9ina 3989 
398R 
Se la Разіпа non e^ Piena 393E 
Conta-rishe = à 393C 
Finito 2980 


Controlla lo 
status della stamPante 






Indirizzo tabelle 
Addiziona offset 
Prima meta”... 
dopo В 






Seconda meta... 
dopo C 


Emette... IHDI- 
la Prima meta^ RIZZO 
398E 
Emette... 398F 
la seconda meta” 3932 
3995 
3997 
HL di ritorno 339A 
BC di ritorno 399E 
Fine dell'emissione... 39A1 
araf ica 33R4 
Finito 39A6 
Salva il 39A9 
reaistro 39AA 
Зя 
ЗЭВЕ 
Caratteri... 396 
doro HL 3981 
commutare Su... 39B2 
grafica 3953 
Contacicli 3985 
ЗЭВ? 
DE=HL 3989 
39BB 
39BC 
Ciclo, HL = 5#HL ЭЗБЕ 
3901 
Offset doPo BC 3902 
Indirizzo tabelle 3903 
addizionare 3905 
tutti i Punti messi 3907 
Emettere Bute 9rafica 39C9 
Contacicli 39CB 
Byte Grafica 29CD 
39CF 
Emettere 3904 
Ciclo 3907 
tutti i Punti emessi 3909 
Emettere Bute Grafica 390B 
Spegnere... 39DD 
ағаҒіса 39DF 





Mella stampa 774 
sentato da una. matrice 
Бірі di Punti. 
la composizione del arafico e^ 


CONTE- ASSEMBLER 


MUTO DISRSSEMBLRTU 
E1 POP HL 

ni FüP DE 

C1 POF EC 

Fi FOP AF 

c9 RET 











CONTE- f 
NUTO n 

HF OR 
32067A LD 
32067A LD 
SES LD 
СПЕНЗН CALL 


DD21027A LI 
210279 LD 


110006 LD 
AECA LI! 
CIFSSA CALL 
ES PUSH 
CICIOS CALL 
йваз LI 
ҮЕ LD 
A1 AND 
cs PUSH 
47 LI 
CBAS RRC 
CBOS RRC 
CBas ЕЕС 
СЕйЭ ЕЕС 
73 LD 
FEBZ СР 
C2B339 JP 
78 LD 
Ci POP 
FER СР 
2200 JR 
FEO? СР 
280E JR 
FEGI CP 
2214 JR 
110000 LD 
11EGEO LD 
180A JR 
1640 LI 
1EAG LI 
1804 JR 
16A0 LD 


Poiche“ 











la $ 





SEMEBLRTU 





HL, 70606 
DE, aan 








DE. EEA 
ЗЭЕЗ 
П,4й 
E.AO 
39E3 
D. AG 


sha GP 1ЙИ usa solo 
Piuttosto impegnativa 





EPTO SPETT SIE ача DEAR ES SRI ZITTI II ESTE MET NT NE ET Tat тағын ыты E SEE ер‏ ق 


COMMENTO 


Reaistro di ritorno 
> 27 
E #6 
tri rs 


Finito 


EMISSIONE DEL CONTENUTO VIDEO SULLA STAMPANTE 





















ИССА ine pap EE 
Se Pa9ina srafica o carattere inverso Questa routine copia l'intero contenuto video, testo o Srafico, sulla 
Salvataggio caratteri stamPante. L'emissione di caratteri inversi; segni grafici е di 9rafica 
Controlla se... ad “‘alta risoluzione‘? e^ possibile solo con una SEIKOSHA GP 100, 
non e^ stato Premuto BREAK 
Carattere di ritorno INDI- CONTE-  RSSEMBLER COMMENTO 
Mette un Carrs RIZZO NUTO DISASSEMELATO 
Finito 
Controlla 10 3212 IRI DI Chiede l'emissione video 
status della stampante 3913 Е5 PUSH lwa HL 
Carattere di ritorno 3914 SASE?S LD Controlla il 
Emissione 3917 CESF BIT modo — 
3919 C28E39 ЈР se video Grafico 
391C 2160070 LD Inizio memoria wideo 
Annulla il 391F DELA LI Humero delle rishe 
сағғч 3921 A624 LD Caratterizieida 
Se non CR 3923 LI Controlla il 
Emette... 3924 DR carattere 
LF JP se caratteri testo 
CALL Emette carattere araf ica 
Se е“ un segno arafico JR Avanti 
emette un BIT 
segno inverso ЈЕ Se carattere normale 
Emette un AND 4 
СЕ su stampante CALL 
Finita JR : 
AND ricalcolare... 
BIT iniaa 
ac JR codice... 
Ғвай OR II 
CDERSA CALL ; 
23 INC 
ann 112 
COMMENTO FAMAE 8 
k CALI 
: CALL E Uhisde ЕКЕНЕ 
Salvatasoio BC 7 IEC U 
Ta. Ln ны! 
commutare B? ПЕ H Ciclo fino al termine... 
su Srafica 2ACE IR NZ del wide 
Carattere EI POP HI HL di ritorno 
Isnorare il colore FE FI Riabilita l'emissione zu videa 
Salvataaasio HL (a FET Return 
A=A#2 
BC-R 


"afica іт alta risoluzione: oni Punto viene raPPre- 


Sono usati diversi 
aghi di stamPa, 


1 quattro colori 





COMMENTO 


Marcatore del 

Primo Passaggio 

Honsenzo 

Inserisce il 

modo Graf ico 

Indica sul Buffer 4 Butes 

Inizio della memoria video 

Honsenso 

Maschera Bit Fer Punto sinistro | 
Richiede un BREAK | 
Salva HL | 
Honsenso | 
Contatore Per 3 righe 

Punto colore 

боро A 

Salva BC 

Colore doPo B 

Colore 

е 

maschera bit 

nei Bits Be 1 

ruotare 


Colore doPo A 
EC di ritorno 
Se e^ colore 4 => ПЕзЕЙЕЙ 
Se e^ colore 3 => DE=40AG 


Se е” colore 2 => ПЕ=А040 
Colore 1 => DE=® 


III II ANTI I I O NI em‏ ڪڪ ي ف 


39E1 
39E3 
39E6 
39E8 
39EA 
39EC 
ЗЭЕП 
39FA 
39F3 
39F4 
39F5 
39F& 
39FR 
39FII 
39FF 


INDI- 
RIZZO 


3AØ1 
3Ha2 
3Has 
SAAS 
3A09 
3AGA 
3A0D 
3A0F 
SALA 
3H11 
3H13 
3H14 
3A15 
SAL? 
SALA 
3ALE 
SAID 
3A1F 
энгй 
3AZI 
3A23 
3924 
3A25 
3A27 
3A2A 
эне 
3A34 
3A31 








INDI- 
RIZZO 


SAGA 
3H6n 
3R6F 
3AT 
3A72 


2A73 
3A76 
3H78 
3A7A 
3H? 
ЗАТЕ 
SASI 
3R84 


3m 
ЕЕ) 
ЗАЯВА 
ZASI 
ZASE 





85 


1Е4й 
DI7EGG 
СЕЗЕ 
СЕЗЕ 
СВЗЕ 
ES 
21037A 
CIEASA 
E1 

Ba 
107700 
DD?Ea2 
CB3F 
СЕЗЕ 
СЕЗЕ 


CONTE- 
NUTO 


E5 
21057A 
CISAZA 
E1 

E3 
117702 
3E20 
85 

EF 
SEGA 
ас 

67 
1050 
CD?33R 
El 
E 
C 
79 

B? 
2083 
23 

7р 
E61F 
C2R439 
CDE23H 
SADE7A 






32067A 
2004 
SES 
1602 
SEZA 





LI 
LD 
SRL 
SRL 
SRL 
PUSH 
LI 
CALL 
POP 
DR 
LD 
LI 
SRL 
SRL 
SRL 


CIKA) A 
A, < IK+02) 


DID 


ASSEMBLER 
DISASSEMBLATO 


PUSH 
LD 
CALL 
РОР 
OR 
LI 
LI 
ADI 


JP 
LI 
LII 
JF, 
LI 
CALL 
FOF 
EI 
RET 


ІР 





HL 

HL. TANS 
3H6R 

HL 


Drornam 






ron 


A 
H 
3 
3 
HI 
с 
(E 
A 
A 


NZ. 39H6& 


ARF 





CONTE 
MUTO 
JP 
SET 
РЕТ 
RES 
RET 
CISSSA CALL 
1023 INC 
ІШез INC 
CD853A CALL 
DIZE DEC 
ШЕ ПЕС 
CISSSA CALL 
Ç9) RET 
DD7EGI LD 
CEOF RRE 
DD7EGO LD 
Е5 FUSH 
sADE?A LD 





3970 
HL» 





IK 
3A25 
IX 
IX 
GASS 


A. CIH+O1) 
A 
A, CIN. B0» 
HF 
A, «FADE? 


Ruota il bute... 

grafico attuale di З bits 
verso 

destra 


Salva il 
bit n.9 


Mettere un 

nuovo Punto 

Lo stesso 

con 

il secondo 
^'camPione^^ Bit. 


COMMENTO 


HL Presente 
nella 
risa 
successiva 


Ciclo. fino a 3 righe pronte 
Stampare “‘camPione’ Bit 

HL di ritorno 

Spostare maschera Bit 

sul Prossimo Punto 


Trattato sino a 4 Punti 
il Prossimo Bste 


Se non inizio di una riga 
Emette un CR 

Mette flaa Per 

Prossimo Passazgio 


Se non 3, PassagQgio 
Di nuovo il Primo 


Зе non 3, Passaggio 
2 кізһе avanti 


НәзіштФе una 


risa in Piu” 
da A a HL 


Se finito 
Se non ultima riga 
Se non ultima riga 


Ma .. 
aio chiusura 





return 


Salta all'inizio del ciclo 


COMMENTO 


Testa il bit 9 
e lo salva 
secondo 

“Ні? 


Emette il Primo camPione Bit 


emette il 2. campione Bit 


Emette il Primo camPione Bit 


Bit 9 

in Carry 

Carica il camPione Bit 
Salva il campione Bit 
Controlla 


3A91 
3A93 
3A95 
aH9? 
3H99 
3RSR 
3A9E 
3A9C 
SA9F 
ЗАВІ 
SARI 
3AR4 
SAAB 
3AA8 
SARI 
ЗАЯВ 
3RRE 
3RRF 
зява 
3RB2 
3ABS 
3ABa 





РЕЙ2 
2811 
FEA1 
2816 
F1 

17 

F5 
3HD6?R 
FEFF 
2005 
Fi 
E607 
1801 
F1 
FERA 
CDEASA 
c9 


CP. 
JR 
CP 
JR 
POP 
RLA 
PUSH 
LD 
CP 
JR 
РОР 
AND 
JR 
POP 
OR 
CALL 
RET 
POP 
JR 
POP 
RRA 
JR 


Я, (ZADE) 
FF 

NZ, ЗААВ 
AF 

а? 

SARAI 

НЕ 

sa 

SABA 


AF 
3R9B 
RF 


3A9E 


flas di Passa99io 
Se e^ il 3. Passaeaio 


Se e^ il 2. Passa99io 

1. Passa99io 

Bit camPione verso sinistra 
di nuovo sullo Stack 


se non e^ il Passa99io finale 
Emette 

i Bits 

da 032 

Bit campione indietro (di ritorno?) 
Mettere il Bit 7 

Stampare 

Finito (return) 

Bit campione 

emettere invariato 

Eit camPione 

ruotare verso destra 

Emettere 


Questa routine scrive un blocco di memoria su cassetta. L'indirizzo 


iniziale sta іп 75A4/78A5, 
del blocco in 78F9/7?8FA. 


il Primo indirizzo ch 
In C si trova il ^^tsPenfla9**. 


non fa Piu^ Parte 





Ей Per testo Basic - Fl Per Programmi in linguaggio macchina. 

Le registrazioni fatte con questa routine Possono essere caricate con 
CLOAD, Prima del richiamo SI DEVE fare un DI! 

Il nome usato Per la registrazione deve trovarsi nel Buffer, al cui 


inizio viene segnalato HL. 
(^^) e terminare con un byte zero. 


INDI- 
RIZZO 


34RC 
34RF 
34B2 
3483 
34B6 
3487 
34B8 
3489 
34BB 
34BE 
3402 
34C5 
34C6 
2409 
34CC 
3420 
запа 
3401 
3414 
3417 
3418 
З4ПЕ 
34DC 
34DF 
34E2 
34E3 
34E6 
34E9 
34EC 
34ET 
34EE 
34F1 
34F4 
34F? 
34F8 
24FA 
34FI 
3500 
3503 
3506 
3508 
3509 
3500 
350E 
350F 
3510 


CONTE- 
MUTO 


СП5835 
DAFESA 
ES 
BISABI 
dB 

79 

Ba 
20FE 
CIFS3H 


10212378 


298478 
тр 
CD1135 
DI?760 
RF 
007791 
үс 
CD1135 
CI8E38 
ЕВ 
2AF9?8 
тр 
СП1135 
CIBES8 
тс 
СП1135 
CDBE38 
CDFS3R 
18 

13 
СП1135 
СІВЕЗВ 
СПЕВЗН 
nF 
20F2 
ІП?ЕйИ 
СП1135 
DI7EOI 
CD1135 
A614 
AF 
СП1135 
16FE 
Ei 

FE 

сэ 








ASSEMBLER 
DISASSEMBLATO 
CALL 3558 
JP C, 3AFE 
PUSH HL 
LD BC, 019A 
DEC EC 
LD A.C 
OR B 
JR NZ, 34B6 
CALL 3AF8 
LD IX. 7823 
LD HL, C?8R4» 
LD AL 
CALL 3511 
LI CIK+BO), A 
OR A 
LD CIX+01),A 
LD A.H 
CALL 3511 
CALL 388E 
EX DE. HL 
Ln HL, C?8F9» 
Ln AL 
CALL 3511 
CALL 388E 
LD A.H 
CALL 3511 
CALL 388E 
CALL 3AF8 
Ln A, CDE) 
INC DE 
CALL 3511 
CALL 388E 
CALL SAFS 
RST в 
JR м2. 
Ln ni 
CALL 29 
LD Hi I%+01) 
CALL 3511 
LD E.14 
ADR. H 
CRLL 3 
DINZ 35 
POP HL 
EI 
RET 


Il nome deve iniziare con una vir9oletta 


COMMENTO 


Scrivere la marcatura iniziale 
se Break 

Salva HL 

Ciclo di attesa 


Chiede Break 

Indice su somma di controllo 
Inizio doPo HL 

Scrive su cassetta 
l'indirizzo di inizio 

Primo byte somma di controllo 


2. bste della somma di controllo 


Calcola la somma di controllo 
Indirizzo iniziale doPo DE 
Scrivere su cassetta 

indirizzo finale 

secondo HL 

Calcolare la somma di controllo 


Chiede Break 
Bste di dati 


su cassetta 

Calcola la somma di controllo 
Chiede Break 

Confronta HL e DE 

зе non ancora Pronto 

Somma di controllo 

su cassetta 


2ӣ 
Azzerare 
su cassetta 


HL indietro (di ritorno?» 
Accendere l interrupt 
Finito (return? 


Segue sul prossimo numero 


SOFT 


LA R.O.M. 
DEL LASER 110/200/210/310 


A cura di G. Venturini 


Inizia in questo numero la pubblicazione a dispense della R.O.M. relati- 
va ai computers Laser 110/200/210/310. La memoria di sola lettura, infat- 
ti, è identica nelle quattro versioni. 

Si tratta della traduzione passo passo di una pubblicazione in lingua 
straniera, e come tale viene offerta, senza ulteriori commenti o approfon- 
dimenti. Naturalmente, non si fa riferimento alle locazioni R.A.M. utilizza- 
te dalla R.O.M. durante il suo lavoro. La conoscenza delle stesse, appare 
ovvio, potrebbe servire per modificarle e far eseguire al computer cose 
diverse da quelle per cui é stato programmato. 

Lasciamo questo compito ai nostri lettori più smaliziati, sperando che 
offrano le loro scoperte a tutti, in modo da rendere la famiglia dei “lase- 
папі” sempre più conscia dei poteri del suo computer... fino all'ultimo 
bit!!! 

Buona ricerca!!! 


:UPAZIONE 


ET 





DELLA MEMORIA DEL LASER 


йййй ~ 3FFF = Basic Rom 
4000 ~ 67FF = Alloggiamento Per cartridges ecc. 
6800 - 6FFF = Tastiera, Porta di controllo 
7000 - ?7FF = Memoria video: nel modo testo sono usati solo i Pri- 
mi 512 Bstes. 
7800 - (НЕВ = Memoria di lavoro Per Basic interprete 
THES ~ ?FFF = Memoria libera Per Laser 1198 
(НЕ9 ~ ВЕРЕ = Memoria libera Per Laser 210/V2 200 
TRES - ВЕЕ = Memoria libera Per Laser 310 
- FFFF = Spazio Per esPansioni di memoria 


La memoria video contiene un Byte Per oani carattere. Non si usano 
Pero’ i codici ASCII, ma dei Propri codici video, secondo la seguen- 
te tabella: 


CODICE VIDEO CODICE ASCII 


00 - 1F 40 = ТЕ 

20 - 3F 20 - 3F 

40 - ?F CO - FF &caratteri inversi) 

80 - FF 80 - ЗЕ «segni 9rafici: bit 4-6 stabiliscono colore) 


Nel modo ӘғаҒісо ogni byte stabilisce il colore di quattro Punti vi- 
Cini; i bits ? е 6 quello tutto a sinistra ecc.: Per cui esistono 
molti colori Possibili che corrisfondono ai seguenti camPioni di bit: 


00 VERDE BIANCO (colore di fondo) 
di GIALLO TURCHESE 
10 BLU ARANCIO 
11 ROSSO VIOLETTO 


La tastiera occupa 8 indirizzi, di cui i bits 0-5 corrisPondono ad 
un tasto. Un bit жаға” Ø se si Premera’ il tasto corrispondente, 


INDIRIZZO 2 3 4 
687F i K 
68BF 
68DF 
68EF 
69F7 
68FB 
68FD 
68FE 


CR 


wore 
o= 


SHIFT 
CTRL 


чоол2го<гое 
2 
D 
о 
т 
mm—Ruxxccaco 


Egxm* 
тыс ~ 


La Porta di controllo Puo” essere solo scritta е non letta. Puo” es- 

sere indirizzata con tutti eli indirizzi da 6800 a EFFF. Al fine di 

Poter stabilire il relativo contenuto del momento, ognuno dei valori 

emessi di tutte le routine ROM viene memorizzato anche in indirizzo 

783B. I singoli bit hanno la seguente funzione: 

BIT FUNZIONE 

йе5 Controllo altoparlante. Devono sempre avere valori comPlem. 

3 Stabilisce il modo video: ü-testo / 1=9rafica 

4 Stabilisce colore di fondo: A=verde / 1=marrone/bianco 

2 E^ il bit di uscita Per l'interfaccia della cassetta. Per 
le99ere il seanale di cassetta viene usato il bit 6 dell” 
indirizzo 6900, 


Dei 256 indirizzi di controllo, in Rom vengono usati. Per la stam- 
Pante. solo 9li indirizzi B-F. 


Mella registrazione in cassetta i sinsoli Bytes vengono emessi a Bit, 
e Per Primo il Bit 7, Per ogni Bit vengono emessi i seguenti segnali 


BILE SRI 
Bit=0: LI =, 
Ogni registrazione in cassetta inizia con una marcatura iniziale, con- 


sistente in 255*BBH e 5ЖҒЕН. Poi segue un Byte, che indica che cosa e^ 
Poi registrato: F@H=PROGRAMMA BASIC. FIH=PROGRAMMA IN LINGUAGGIO MAC- 








SOFT 


PARTE PRIMA 


CHINA, F2H-DHTI. Segue Poi il nome formato da Й a 16 bytes e che 
termina con uno zero, 


Mei Programmi Basic o in Linguaggio macchina seguono Poi indirizzo ini- 
ziale e finale ed il Programma, Quindi una somma di controllo di Estes 
sull'indirizzo iniziale e finale come Pure i Bytes di Programma e come 
marcatura finale 2040, 


Mella registrazione di dati. dopo il nome seduono i dati. che vendono 
terminati con uno zero, 


Nel caricare con CLORI, nei Programmi in lin9uasgdio macchina, si avvia- 
no subito, doPo il caricamento, dall^indirizzo di inizio, se non si ve- 
rifica un errore nella somma di controllo. 


I Joystick Possono essere interpellati tramite l'indirizzo 20H/2FH. 
Se il commutatore viene confermato, il relativo Bit viene messo a Ø. 
Si usano i seguenti Bit: 


Forta A 1 2 a 4 
Joystick destro: 2EH T L < -» FIRE I4 
3 2DH FIRE 2 
Joystick sinistro: 2EH m 4 <- -> FIRE 1 
27H FIRE 2 


Utilizzando il Basic. si Possono interpellare i Joystick con INP). 


In seguito verranno sPiegate le ROM routines utili Per Proarammare il 
Laser. Se nelle singole Routine non viene spiegato altro. richiamando 
tutti i contenuti di registro. fuorche” HL. vengono modificati. Tutte 
le Routines Possono essere richiamate con CALL. 





EMISSIONE DI UN CARATTERE 


Questa routine emette un carattere, il cui codice ASCII sta in A, sul 
video, stamPante o cassetta. Il contenuto della cella di memoria 789CH 
stabilisce dove il carattere viene emesso: Ø = video, o9ni valore ne9a- 
tivo = cassetta, оӘпі valore Positivo = stampante. Possono essere emes- 
si anche caratteri di comando. La routine non modifica i contenuti di 
registro, fatta eccezione Per la ^^flas^", 






INDI- СОМТЕ-  RSSEMBLER COMMENTO 
RIZZO MUTO DISASSEMELATO 
йзен C5 PUSH BC Salvataseio ВС 
032B 4F LD CA Salva i caratteri dofo C 
CDC179 CALL ?9C1 Hon fa nulla 
3A9C78 LD A, (7890) Flags di direzione 
Е? OR A Controllo 
79 LI A.C Carattere Precedente 
Ci FOF BC BC indiet 
ЕН54ЗВ ЈР M, 3854 Heaativo ~ 
2062 ЈЕ NZ, 9390 Positiva ~ 





Passaggio -> 


EMISSIONE DI UN CARATTERE SU VIDEO 


Questa routine emette il carattere, il cui codice ASCII sta in A, sul 
video. Corrisponde al comando Basic PRINT CHR$CR?;. Si Possono anche u- 
sare codici di comando. I contenuti di registro rimangono invariati, 





ns PUSH ПЕ Reaistro 
F5 BUSH ВЕ Salvataggio 
CS PUSH BC 
ES PUSH “НІ 
CISBSO CALL ZABE Emissione effettiva 
Ei FOP HL. 
21 РОР ЕС 
343 au МОР 
9244 йй МОР 


bile, determinando così 
l'esponente da dare al nu- 
mero primo due. 

Il procedimento viene ripe- 
tuto con il numero primo 
tre, poi con il numero primo 
cinque, poi con sette ... fino 
a quando non ci sono più 


divisori. 

| risultati compaiono sul vi- 
deo іп modo molto chiaro e 
comprensibile. 

NOTA: il listato è stato scrit- 
to per i computer LASER 
500, ma può essere adatta- 
to anche a tutti gli altricom- 


Sillabando 


Il semplice programma di 
cui alleghiamo il listato 
svolge una importante fun- 
zione grammaticale, che 
molto spesso viene dimen- 
ticata, soprattutto da chi 
scrive giornali e riviste: si 
tratta della divisione in silla- 
be delle parole della lingua 
italiana. 

Lo svolgimento è molto 
semplice, ma il programma 
ha un discreto interesse, sia 
dal punto di vista didattico, 
sia per quanto riguarda la 
programmazione, e l’uso 
delle FUNZIONI ALFANU- 
MERICHE che sono cono- 
sciute anche соп il nome di 
FUNZIONI STRINGA. 
Dopo la scrittura del titolo il 
computer chiede l'inseri- 
mento del vocabolo che si 
desidera scomporre in sil- 
labe. 

Inserendo il vocabolo, e 
premendo il tasto RETURN, 
il computer esegue la sud- 
divisione, e la parola scom- 
posta viene visualizzata 
sullo schermo. 

Ogni sillaba è separata dal- 
la sillaba successiva con 
un trattino, per evidenziare 
maggiormente la scompo- 
sizione, ed alla fine il com- 
puter si predispone per un 
nuovo vocabolo. 
Inserendo 0 (ZERO), al po- 
sto di una parola, il pro- 
gramma termina. 


10 


10 REM * SILLABANDO Ж 


puter LASER, nel sequente 
modo: 

| nomi variabili М еа МІЗЕ 
devono essere corrette in N 
ed N1, poiché il LASER 500 
riconosce le variabili in 
doppia precisione, che 
hanno il simbolo жЕ (can- 


15 T$="DIVISTONE IN SILLABE" 
20 CLS:PRINT ТАВ(6) TL$:PRINT 


30 S&=1:L=1 


40 PRINT :PRINT :ІМРОТ "VOCABOLO" :A$ 


50 IF А%-"0" THEN GLS:END 


S5 CLS!PRINT ТАВ(6) TL$:PRINT 

60 UTX-0;X$-RIGHT$(A$.1):GOSUB 300 
65 IF A=0 THEN UTX-1:UT$-2X$ 

70 GOSUB 330:1Е S»LEN(A$) THEN 30 
90 X$-MID$(A$.5,1):GOSUB 300 


100 IF A=0 THEN 270 


110 X$-MID$(A$,5*1,1):GOSUB 300 


120 IF.As0 THEN 200 
130 IF Х%-"І" THEN 150 


HAO ТЕ MIDAS OAS LLL ORS MODS САЗ 5:199 


150 GOTO 280 


160 Х%-МІП%(А%,6%2,1):СОВЦВ 300 
170 IF 521 THEN GOSUB 310:ІҒ TX-1 THEN 70 


180 IF A=-1 THEN 280 
190 GOTO 270 
200 IF S*-2»*LEN(A$) THEN 


z90 


210 X$-MID$(A$,5-*2,1):GOSUB 300 


220 IF A=-1 THEN 280 


800 DESMIDSICASSS EI ТИЕП ОСА БЕИ ТНЕМ 290 


240 A1$=MID$(A$.S5+1,1) IF Al$-2"S5" 


ТНЕМ 270 


OR Al$="G" THEN 280 


celletto) dopo il nome. 
Gli altri computer LASER 
non riconoscono il segno , 
per cui occorre toglierli dal 
listato. 














250 A2$-MID$(A$,5*2.10:IF A2$-"R" OR A2$-"L" OR А2%-"Н" THEN 280 


260 GOTO 290 


EO ERIN MUSO OS 199 
280 PRINT МІП%(А%,5,1):! 


281 IF 1728 THEN PRINT 
282 GOTO 70 
o OU RNY MND SEAS aD 


290] ІР ШОВ ТНЕМ BRUNI , 


292 GOTO 70 


300 А-0:1Ғ X$="f" OR X$-2"E" OR X$-"I" 


301 RETURN 


310 ТЖ=0:ІР 521 THEN A1$-MID$(A$,5- 


liLsL-t*1:GOTO 70 
QSsSRIILELEZIGOSUB 330 


N 


315 IF 8:1 THEN IF Al$="QU" AND A=-1 THEN PRINT А2%: 


320 RETURN 

330 LK-LEN(A$) 
SGT TRIS 
332 IF S2LK 
334 RETURN 






Con opportune modifiche 
questo programma può es- 
sere trasformato in un gio- 
CO, che permette di inse- 


AND TX-i THEN PRINT CHR$(8) CHR$(8) UT$" 
THEN PRINT CHR$(B)" ": 


gnare la grammatica ai 
bambini delle scuole ele- 
mentari e medie, diverten- 
doli. 


1,2) :A2$-MID$(A$,8; 


18=8+2:L=L+2;T%=1 


OR X$="0" OR X$="U" THEN A=-1 


2) 


";!КЕТИНЕМ 


Invitiamo i lettori а realizza- 
re le opportune variazioni 
sottoponendoci i loro ela- 











borati. 





Software 


Minimo 


comune multiplo 
e massimo 
comune divisore 


Molto spesso, ci si trova ad 
affrontare problemi che in- 
teressano due numeri, e la 
risoluzione del problema 
comporta la determinazio- 


ne del M.C.D. (MASSIMO 
COMUN  DIVISORE) dei 
due numeri, oppure del 
m.c.m. (MINIMO COMUNE 
MULTIPLO). 


10 CLS 


20 PRINT "QUESTO PROGRAMMA CALCOLA" 


25 PRINT 


50 PRINT “ТІ. MASSIMO COMUNE DIVISORE Е" 


SO РЕІМТ 


40 PRINT "II, MINIMO COMUNE MULTIPLO" 


45 PRINT 


50 PRINT "ТКА DUE NUMERI N1 ED М2" 


60 PRINT 


70 INPUT "PRIMO NUMERO":N1:PRINT 
80 INPUT "SECONDO NUMERO" :N2;PRINT 


90 IF Мікхі OR.N2«1 THEN 


100 AzN1:BzN2 
110 Q=INT(A/B) 


250 


120 R-A-B£Q:IF R=0 THEN R=B:GOTO 150 
130 IF B/R=INT(B/R) THEN 150 


140 A-B;B-R:GOTO 110 
150 M=N1#N2/R 

200 PRINT "M.G.D, z' B 
DIOSBRUINDOUMOM: 


SADM ERINN 


220 INPUT "ALTRO CALCOLO (S/N) R$ 


230 IF R$-"S" THEN RUN 
240 IF К< "МА" THEN 220 


250 CLS:PRINT "FINE PROGRAMMA" :!PRINT:; ЕМІ 


Il listato allegato risolve con 
semplicità il calcolo di que- 
sti due valori. 

Le spiegazioni sono inseri- 
te nel listato stesso. 


Questo programma è mol- 
to utile per chi studia, per 
verificare le proprie cono- 
scenze e capacità. 














Controllo codice fiscale e 
partita I.V.A. 


Il programma di cui alle- 
ghiamo il listato permette di 
verificare l'esattezza di un 
CODICE FISCALE, o del 
numero di PARTITA IVA. 
Precisiamo che il CODICE 
FISCALE è una sequenza 
di 16 caratteri alfanumerici, 
che viene attribuito dall'Uf- 
ficio Imposte a tutti i cittadi- 
ni italani. 

La PARTITA IVA invece è 
una sequenza di 11 CIFRE, 
e viene attribuito a tutte le 
SOCIETA che sono iscritte 
all'ufficio IVA. 

Il programma è realizzato 
tenendo conto delle dispo- 
sizioni previste dal D.M. 23/ 
12/76. 

In particolare: 

il CODICE FISCALE è costi- 
tuito da 16 caratteri di cui i 
primi 6 sono lettere dell’al- 


fabeto e sono una codifica 
del COGNOME e del NOME 
della persona. Tali caratteri 
sono seguiti da 2 cifre che 
indicano l'ANNO di nascita, 
1 lettera dell'alífabeto che 
indica il MESE, 2 fifre che 
indicano il GIORNO DI NA- 
SCITA 1 lettera + 3 cifre che 
indicano il COMUNE di na- 
scita 1 lettera che rappre- 
senta il CARATTERE DI 
CONTROLLO. 

Se la persona è di sesso 
femminile il GIORNO di 
NASCITA è aumentato di 
40. 

Ogni carattere dal primo fi- 
no al quindicesimo assume 
un valore NUMERICO, in re- 
lazione alla POSIZIONE 
che occupa nel CODICE. 

| CARATTERI DI POSIZIO- 
NE DISPARI cioè il PRIMO, 


il TERZO, il QUINTO etc, fi- 
no al QUINDICESIMO as- 
sumono i valori indicati dal- 
la seguente tabella. 
A o ZERO = ZERO 


Во1-1 
00222 
Dio S2 3 
Eo4=4 
E o0 5= 5 
Go626 
Ho7=7 
108=8 
Јо9= 9 
К= 10 
ا‎ 
M = 12 
N= 13 
О- 14 
P5 
O= 16 
R= 17 
S= 18 
T= 19 


U= 20 
V= 21 
W = 22 
X= 23 
Y= 24 
Z= 25 


| CARATTERI DI POSIZIO- 
NE PARI cioè il SECONDO, 
il QUARTO etc. fino al 
QUATTORDICESIMO, inve- 
ce seguono la seguente ta- 
bella: 


A o ZERO = 
B о 1 = ZERO 
Co225 
DO = 7 
Ео4-9 
Fo5= 13 
Go6= 15 
Но = 17 
[08 = 19 
Јо9 = 21 
К= 2 


1 


Software 


L=4 
M — 18 
N — 20 
О = 11 
Р= З 
Q=6 
R=8 
S= 12 
T=14 
U= 16 
V= 10 
W = 22 
X= 25 
Y — 24 
Z= 23 


Il MESE di nascita è invece 
codificato come segue: 


A — GENNAIO 

B — FEBBRAIO 
C = MARZO 

D — APRILE 

E = MAGGIO 

H = GIUGNO 
L= LUGLIO 

M = AGOSTO 
P= SETTEMBRE 
R = OTTOBRE 
S = NOVEMBRE 
T = DICEMBRE 


Il controllo del CODICE ЕІ- 
SCALE, o della PARTITA 
IVA, viene fatto sull'ultimo 
carattere, che pertale moti- 
vo viene chiamato CARAT- 
TERE DI CONTROLLO. 
Per controllare il CODICE 
FISCALE si procede nel se- 
guente modo: 

1- Sommare i valori relativi 
alle cifre di posto PARI e di 
posto DISPARI, facendo ri- 
ferimento alle tabelle di cui 
sopra. 

2 - Dividere il risultato per 
26. 

3 - II RESTO della divisione 
per 26 rappresenterà il VA- 
LORE relativo al CARATTE- 
RE DI CONTROLLO. 

4 - Fare riferimento alla ta- 
bella per i caratteri di PO- 
STO PARI per ricavare quale 
deve essere il CARATTERE 
DI CONTROLLO. 

5 - Se il carattere ricavato 
dai controlli di cui sopra é 
UGUALE al SEDICESIMO 
CARATTERE del CODICE 
FISCALE il codice è MOL- 
TO PROBABILMENTE 


12 


10 REM Ж 


CONTROLLO Ж 


20 REM € CODICE FISCALE X 


30 REM Ж 


40 C 
50 C 
60 Р 


70 PRINT" 


80 F 


90 PRINT" 


1000 
1010 
1020 
1025 
1030 
1040 
1050 
1060 
3000 
3010 
3020 
3030 
3031 
3032 
3035 
3037 
3039 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3150 
3160 
3161 
3162 
3170 
3180 
3190 
3200 
3210 


O PARTITA IVA Ж 
LEAR1000:CLS:GOSUB1000 
LS;PRINT:PRINT" QUESTO PROGRAMMA VERIFICA" 
RINT" LA CORRETTEZZA DEL CODICE" 
FISCALE O DELLA FARTITA IVA" 

IN BASE AL D.M. 23/12/76." :PRINT 
INSERIRE IL CODICE FISCALE" 
PRINT" ОЕМ ОТ РОБИТА TIVAS 
PRINT" DA VERIFICARE. ":РБІМТ 
SOUND25,1:S0UND25,1:S0UND25, 1 
ОБ ТМЕОТ С 
M$="I DATI NON SONO COERENTI" 
ER#=1:G0OSUR3000 
BERTON ОЯ 
IFER%=0THENFRINT" 
IFER*-OTHENM$-"" 
PRINTTAB(3)M$ 
SOUND25,1:!S0UND25,1:S0UND25,1 
PRINT®484, "ALTRA VERIFICA (S/N)": 

INPUTS$:IFS$-2"S"THENSO 
CLS: END 

REM Ж INIZIALIZZAZIONI Ж 

DIMA(25) 

S20:FORI-OTOZ2S5:READA*(CI) 

S=S+A% (I1) NEXT 

ШАШАР Aa SII 2,2,4, 18,20,11,08 

DATA 12,14,16,10,22,25,24,23 
IFS«<>325THENPRINT@256, "ERRORE NELLE RIGHE DATA":STOP:RUN 
RETURN 

REM * SUBROUTINE VERIFICA Ж 

L*$=LEN(C$) 

IFL.%=11THEN3150 

IFL%<>*16THENM$="NUMERO ERRATO DI CIFRE":RETURN 
Z-70:FORI-1TOLZX€ 

A$=MID$(C$,I,1):A=ASC(A$) 


RINT" 


ESATTO ";ELSEPRINT" ERRATO !" 


IF ( (I> 6ANDI <9)OR(I>9ANDI <16ANDI “> 12) )AND{A}570RA<48) THENZ=1 


IF(I«70RI=90RI=120RI=16)AND(A<650RA>95)THENZ=1 
NEXT: IFZ=1THENRETURN 

COSAR(ASC(C$)-65) 

FORI=2T014STEP2 
P=ASC(MID$(C$,I1,1))-65;IFFP«OTHENP=P+17 
D=ASC(MID$(C$,I+1,1))-65:IFD<OTHEND=D+17 
CC=CC+P+A%(D) NEXT:;X$=CHR$ (CC-INT(CC/26)X26+65) 
IFX$=RIGHT$(C$,1)THENER%=0 

RETURN 

REM Ж VERIFICA P.IVA Ж 

£=0FORI=1TOLX /A=ASC(MID$(C$,I,1)) 
ІҒА>5ТОНА<48ТНЕМ2-і 

NEXT: IFZ=1THENRETURN 

CO=0!FORI=1TO9STEP2 
P=24VAL(MID$(C$,I1+1,1)):{IFP>9THENF=P-9 
CC=CC+F+VAL(MID$(C$,1,1)) 
NEXT:X$-RIGHT$(STR$(100-CC),1) 

GOTO3100 


Software 


Calendario 
perpetuo 


Inizia il nuovo anno, e come 
sempre occorre procurarsi 
un calendario nuovo che 
sia valido per l'anno in cor- 
SO. 

La ns. redazione ha pensa- 
to di fare un regalo a tutti i 
lettori. 

Un calendario perpetuo 
con il vostro computer! 

Il listato che vi proponiamo 
permette di realizzare il ca- 
lendario di qualunque me- 
se, di QUALSIASI ANNO!!! 


Per questo lo abbiamo 
chiamato | CALENDARIO 
PERPETUO. 


Se possedete una stam- 
pante, o il PRINTER PLOT- 
TER, potete anche stampa- 
re il vostro calendario con la 
funzione COPY. 

BUON ANNO A TUTTI!!! O 





Scomposizione 
in fattori primi 


Il listato che proponiamo 
consente la fattorizzazione 
di un numero. La scompo- 
sizione in fattori primi è il 
procedimento che permet- 
te di conoscere quali sono i 
divisori di un numero. 

Abbiamo pensato di realiz- 
zare un semplice program- 
ma che rispettasse il proce- 
dimento di scomposizione 


che viene insegnato nelle 
scuole. 

In questo caso il computer 
controlla il numero e prova 
a dividerlo per due, per 
controllare se è un numero 
рап. 

Se è divisibile per due, con- 
tinua a dividere per due, 
per trovare il numero di vol- 
te che la divisione è possi- 







i REM {¥¥¥ CALENDARIO PERPETUO ¥¥¥ 
5 Gl CLEAR 1000 

SUR 10 

20 YINT "T 
ЖАЗ EG 









SIRE ANNO (4 CIFRE)" 














0 PER FINIRE":Y;IF YsO THEN СЕБ ЕМО 

30 INPUT “M IMN IFP МТ-0 THEN GLS:GOTOÓ 20 
40 Н-МТІСОВЦИВ 400:K2=YB+1 
50 H=MT+1;GOSUB 400:Ki=YB+1 
60 L=831 

i IF MT-11 OR MT=4 OR MT-6 OR MT=9 THEN L=20 
66 IF MT=2 THEN L-28 
70 IF МІ-2 AND ((Y/4)=INT(Y/4)) THEN L-29 
75 CLS:PRINT R0$ 
БО PRINT TAB(8):Y:" "M$ (MT) | PRINT 
90 PRINT R1$ 

100 BU$-"";IF K2«2 THEN 120 

110 FOR N=1 TO K2-1:BU$=BU$+" W NEXT 

20 FOR N-1 TO [,:N$-" "+STR$ (N) :IN$-ZRIGHT$(N$,3 
30 IF LEN(BU$)7-228 THEN PRINT BU$ ;:BU$=" 


40 BU$=BU$+N$ 
2 ‘PRINT ВИФ 








5( 

70 PRINT Н0% 

80 OTO 30 

00 X=Y 

(0 N=H-3:J=12:GOSUR 600:MM-Z 

20 IF MM»9 THE Cd 
NeX:12400:GOSUB 600:X=Z 


X/4): X15 INT(X/100) 
-X1 

GOSUB 600:MZ-Z 
М2-ІМТ(М2/2) 
SUB 600:P-2Z 


XA=INT( 










= K+ 
60 N=MM: 
470 MS=INT (MM 











480 N=MZ: J=2:; 
490 KM=13%M5+5% 13#¥P 
500 N=KY+KM+3; 1=7:GOSUB 600:YB=Z 





510 RETURN 

600 K-INT(N/1) 

620 Z=N-K#J 

630 IF Z«0 THEN 2-2%7 









640 RETURN 

1000 DIM М%(12) 

1010 M$(1)- NAIO "1М%(3)-"МАК2О 

1020 M$(4)=' ILE "IM$CO)-"GIUGNO 

1030 M$(7)="LUGLIO i 3 C O "IM$(9)2"SÉTTEMBRE " 
1040 M$(10)="OTTOBRE RIO BOE EMBRE "!М%(12)-"ПІСЕМЕБЕ 


1050 ROS="XKEEELEKLEEELEEEEEELEELEELEELLEL! 
1060 R1$-"DOM LUN MAR MER GIO VEN SAB" 
1070 RETURN 


КЕСА eee ERIGERE 
1985 GENNAIO 


DOM LUN MAR MER GIO VEN SAR 
1 2 3 
c 6 7 8 9 10 j 
12 13 14 15 16 17 18 
19 2 La 24 25 
26 27 8 29 30 31 
CERTO OLE c Ee DC EE GE DG 


5 REM ЖҰЖ SCOMPOSIZIONE IN FATTORI PRIMI #¥¥# 


10 CLS 

20 PRINT "SCOMPOSIZIONE IN FATTORI PRIMI"; 
30 PRINT 

40 INPUT "NUMERO":N# ! PRINT 

50 N1#=N# 

60 PRINT "RIDUZIONI FATTORI" + PRINT 


70 PRINT N#: 
80 X=2 

90 А=0:В=0 
100 K=N1#/X 


110 IF K=INT(K) THEN A=X:B=B+1:!Ni#=K:GOTO 100 


115 IF А<>0 THEN PRINT TAB(13)A:"*":B:PRINT :PRINT N15: 


120 X-X*1:IF X>3 THEN X=X+1 
130 IF Ni#=i THEN END 
140 GOTO 90 


RUN 
NUMERO? 1234 


RIDUZIONI FATTORI 
1234 PI 
617 e esl 


i 


800 CLS:PRINTTL$:PRINTTABR(8)" ARCHIVIO DATI 
805 PRINT"LETTURA DA NASTRO" 

810 PRINT:PRINT"INSERIRE NASTRO ARCHIVIO" 
811 PRINT"E POSIZIONARE NASTRO" 

820 INPUT"FATTO (S/N)":R$;IFR$<>"S"THENRETURN 

822 PRINT"PREMERE TASTO PLAY":SQUND25,3:S0UND25,2 
825 PRINT"LETTURA DATI IN CORSO" :POKE30796,1 

830 INPUT#"CONTO С", UR$,G$:URX=VAL(UR$):C=VAL(C$) 
831 IFUR%=1 THEN850 

835 FORI=1 TOUR 1 

840 INPUTS "CONTO ()",МУ%(1,0),МУ%(1,1),МУ%(1,2) 
845 МЕХТІ 

850 ҒОН7-0Т010 

851 INPUT# "CONTO С",85%(1,71),45%(2,7) 

855 МЕХТ) :POKE 30798,0 

860 GOTO960 

900 CLS:PRINTTL $:PRINTTAB(8)" ARCHIVIO DATI 
905 PRINT"SCRITTURA NASTRO" 

910 PRINT:PRINT"INSERIRE NASTRO ARCHIVIO" 
911 PRINT"E POSIZIONARE NASTRO" 

912 INPUT"FATTO (S/N)":R$;IFR$<>"S"THENRETURN 
915 PRINT"HAI PREMUTO I TASTI" 


"PRINT 


"PRINT 


920 INPUT"RECORD & PLAY 


(S/N)":!R$:IFR$<>"S"THENRETURN 


925 PRINT"REGISTRAZIONE DATI IN CORSO" 
930 UR$=STR$ (UR%):G$=STR$(C):PRINT#"CONTO C",URS$,C$ 


931 IFUR%=1THEN950 
935 FORI=1TOUR%E-1 


940 PRINT#"CONTO G",MV$(I,0),MV$CI, 1), MV$(I,2) 


945 NEXTI 
950 FORJ-OTO10 


951 PRINT#"CONTO С",А5%(1,1),А5%(2,/) 


955 NEXTJ 
960 PRINTG384,"FINE" 
962 PRINT"FERMARE NASTRO" 


963 PRINT"E PREMERE M FER TORNARE AL MENU" 


964 SOUND25,3 


965 M$z"":M$-INKEY$: IFM$ <> "M"THEN964 


970 RETURN 


1000 NX%=36:DIMSDX(NX%),DR%(NX%),AS$(2,20) 


1001 UR%=1 :NM$-100 


| DIMMV#$ (ММ%,2) 


1002 POKE30977,8:P0KE30978,8:POKE30979,8 
1008 FORI-1TO2:FORJ-Z1TO10:AS$(I,J)z"XXX":NEXTJ, I 
1004 AS$(1,0)="000"!AS$(2,0)="000" 


1005 BL$-" 


1009 TT$-"MOV CAUS DATA 


IMPORTO 


1010 TL$-"x*x*x* GESTIONE CONTO CORRENTE ЖЖЖ" 


1012 CP$(1)="NR,=" 


1015 FORI-2TO10:I$-STR$(I-1):IS-RIGHT$(CIS$,LEN(IS$)«1) 
1016 I$-2"O"4I$;IS$-RIGHT$(IS$,2) :GP$(I)z"P"eI$" "NEXT 


1017 UV$(1)="VO1 "!CV$(2)="V 
1020 PG$(1)="ASSEGNI 


Е sufficiente premere un ta- 
sto numerico da 0 a 4 (+ 
RETURN) per scegliere una 
delle opzioni presentate. 
Se possediamo uno o più 
libretti di assegni, occorre 
per prima cosa informare il 
computer, e codificare gli 
assegni, per cui eseguire- 
mo la scelta 4. 

Con tale scelta, potremo 
comunicare al computer il 
numero di serie degli asse- 
gni del nostro libretto. 

E possibile codificare fino 
ad un massimo di 2 libretti 
da 10 assegni cadauno. Per 
eseguire la codifica è suffi- 
ciente inserire le ULTIME 
TRE CIFRE del PRIMO AS- 
SEGNO di ogni libretto, ed 
il computer codificherà gli 
altri. 

Per tornare al MENU è suffi- 
ciente premere il tasto RE- 
TURN. 





"ОУ%(3)-"УОЗ "10V$(4)="V04 " 
"iPG$(2)="ASS., CIRGOL." 


Se NON POSSEDIAMO li- 
bretti di assegni, non è ne- 
cessario eseguire le opera- 
zioni di cui sopra. 

La SCELTA del MENU per- 
mette di registrare i movi- 
menti. 

Con questa scelta il com- 
puter mostra a video l'elen- 
co delle causali di prelievo 
e di VERSAMENTO che so- 
no accettate, in particolare 
se abbiamo codificato de- 
gli assegni verranno accet- 
tate come CAUSALI di pre- 
lievo anche NUMERI DI 
TRE CIFRE relativi ad asse- 
gni codificati. 

Il computer controlla anche 
quali assegni abbiamo già 
registrato, non accettando 
numeri di assegni non co- 
dificati o di assegni già re- 
gistrati. 

Per le altre causali fare rife- 
rimento alle sigle riportate 


1030 PG$(3)-"SIP 
1040 PG$(5)="GAS 
1050 PG$(7)="AFFITTO 
1060 PG$(9)="SFESE BANCA 
1070 VE$(1)="VERSAMENTO 
1080 VE$(3)="INT.ATTIVI 
1090 RETURN 

2000 REM ЖЖЖЖ MENU ЖЖЖЖ 
2005 GLS:PRINTTI.$ : PRINT 
2010 PRINT"1 
2012 PRINT"S3- ESTR.CONTO 4- 
2015 PRINT"O- FINE PROGRAMMA 
2020 INPUT"COSA SCEGLI"!5$ 
2030 IFS$<"0"ORS$>"4"THEN2000 
2040 SC*-VAL.(S$) 

2100 RETURN 








"(РС%(4)-"ЕМЕІ, 
"IPG$(6)2"ACQUA 
":PG$(8)="ALTRI PAGAM." 
"!PG$(10)="LIBR.ASSEGNI" 
"iVE$(2)="CASSA CONT. " 
";IVES$(ODZ"ALTRI VERS. " 


MOVIMENTI 2- ARGHIVIO DATI " 
CODIF.ASSEGNI " 


4500 CLS:N*-0 :PRINT" ЖЖҰЖЖЖЖЖ ЖЖЖ ЖЖЖ ҰҰЖАЖЖА ЖЖЖ "2 
ж"; 


4501 PRINT" Ж 

4502 РБІМТ" Ж Ж 
4503 PRINT" Ж UARA EE EEE EEEE EEEE] * 
4505 PRINT" Ж ВСОМТО CORRENTE# * 
4510 PRINT" % LLLLLLLLLLLLLLLLLI * 
4515 PRINT" % ж" 
4520 PRINT" Ж (о) сар” ER do Хе ур ж 
4525 PRINT" Ж Но n ж" 
4530 PRINT" ¥ Xx 
4535 PRINT" ¥ SCUOLA SCHEIDEGGER ж 
4540 PRINT" f TORTO) ж" 


4542 FORI-1TOS3 
4545 PRINT" ¥ 


X "NEXT 


4546 PRINT" EEKKKKKKEKKKTKKKKKKKKKEKEKKKEKKEtKtx" 


4550 D$-" 
4555 H*-LEN(G$) 
4560 PRINT@418,D$: 


PREMERE Р РЕК INIZIARE 


4561 SOUNDSD?*: (N%) , DRX(N%):N%=N%+1:IFN%>NXXTHENN%=0 
4570 C$-RIGHT$(D$,H4-1) :B$=LEFT$(D$,1) 


4571 D$-C$*B$ 
4580 F$= 
4590 GOTOA4S60 





":F$=INKEY$:IFF$="P"THENRETURN 


4600 RESTORE:FORI=0TONX%!READSD%(1),DRX(I):NEXT 


4601 RETURN 
4605 DATA 24,1,0,1,24, 
4610 DATA23,2,24,2,26, 
1 
1 


,24, 
,23, 


N 


4620 DATA 24,1,0,1,24, 
4630 DATA 24,4,0, 

4640 DATA 21,2,19,2,16,2,17,2 
4650 DATA 19,3,0,1,21,2,23,2 


NNNN 
- ظط‎ e di 
ысым 


оокюм 


No 


, 


0,2 


21,2 


4660. DATA 21,2,19,2,17,2,16,2,14,2,15,2,14,2,12,3,0,1 
6000 FORI=0OTONX%:SOUNDSD#(1),DRX(1) NEXT 


6010 RETURN 


sul video, ricordando che 
occorre SEMPRE. inserire 
un codice di TRE CARAT- 
TERI e che il PRIMO carat- 
tere deve essere P per | 
prelievi oppure V per i ver- 
samenti. 

Per gli assegni, non è ne- 
cessario INSERIRE la lette- 
ra P, ma basta inserire le 
ultime TRE CIFRE dell’as- 
segno. 

Dopo la CAUSALE il com- 
puter richiede la data del 
movimento che deve esse- 
re inserita senza alcun se- 
paratore, nella forma ggm- 
maa (2 cifre per il GIORNO, 
2 per il MESE, 2 per l'AN- 
NO). 

Poi si può inserire l’IMPOR- 
TO ed il computer fornisce 
immediatamente il SALDO 
(POSITIVO=CREDITO NE- 
GATIVO=DEBITO). 

Alla fine viene richiesta la 


conferma dei dati inseriti, 
con la possibilità di correg- 
gere eventuali errori. 

Se i dati sono confermati il 
computer chiede di inserire 
un’altra CAUSALE; se si 
vuole tornare al MENU oc- 
corre indicare la sigla FIN 
come CAUSALE. 

La scelta 3 del MENU con- 
sente di visualizzare 
ESTRATTO CONTO di tutti 
i movimenti fatti, con il SAL- 
DO relativo all'ultima ope- 
razione eseguita. 

La scelta 2 permette di regi- 
strare su nastro i dati, oppu- 
re di leggere da nastro MO- 
VIMENTI registrati prece- 
dentemente. 

La SCELTA 0 (ZERO) fa ter- 
minare il programma, e per 
precauzione ci RICORDA 
di SALVARE i DATI su na- 
stro se per caso ce ne sia- 
mo dimenticati. O 





ESATTO, VICEVERSA è SI- 
CURAMENTE ERRATO. 
NOTA: Il metodo di control- 
lo di cui sopra NON forni- 
sce la CERTEZZA di un co- 
dice esatto, in quanto è 
possibile che un CODICE 
FISCALE contenga DUE ER- 
RORI che si ANNULLANO, 
per cui al CONTROLLO ri- 
sulterebbe esatto anzichè 
ERRATO. 

II NUMERO DI PARTITA IVA 
invece si può controllare 
nel seguente modo: 


1 - Si sommano le cifre di 
posto DISPARI dalla PRIMA 
alla NONA. 

2 - Si RADDOPPIA il valore 
delle cifre di posto PARI, e 
se tale valore é MAGGIORE 
DI 9 si TOGLIE 9 per avere 
una cifra unica. 

3 - Si sommano tutte le cifre 
ricavate al punto 2. 

5 - | valori finali (ricavati al 
punto 1 e 3) devono essere 
sommati tra loro ottenendo 
un unico numero. 

6 - Si considera la cifra rela- 


tiva alle UNITÀ del numero 
trovato, cioé la prima cifra a 
destra. 

7 - Sifala differenza tra 10 e 
la cifra trovata, ottenendo la 
cifra relativa all'UNDICESI- 
MO CARATTERE. 

Se l'undicesima cifra del 
NUMERO DI PARTITA IVA è 
uguale alla cifra trovata, il 
numero di PARTITA IVA è 
MOLTO PROBABILMENTE 
ESATTO, altrimenti è ER- 
RATO. 

NOTA: anche in questo 


La combinazione .. oo 


Questo gioco è una delle 
numerose varianti al gioco 
del “numerino” ed è stato 
realizzato con molta cura, 
per quanto riguarda la “ve- 
ste grafica”. 

Si tratta di indovinare la 
COMBINAZIONE di una 
CASSAFORTE per impos- 
sessarsi dei dollari che 
contiene. 


S CLS:CLEAR1000: GOSUB7000 


Il computer ci avvisa se ab- 
biamo indovinato le cifre, e 
se le abbiamo collocate 
nella giusta posizione. 
Non ci dice pero quali sono 
le cifre indovinate, nè quale 
è la posizione che abbiamo 
azzeccato. 

Soltanto con molta atten- 
zione ed intuito è possibile 
trovare la COMBINAZIONE! 


10 INPUT"VUOI LA STRINGA INFORMATIVA":Q$ 


20 Q$-LEFT$(Q$,1) 
22 IFQ$«»"S"THENCLS:GOTO4S 
24 PRINT"IL GIOCO CONSISTE NEL" 


26 РКІМТ"СЕКСАКЕ LA COMBINAZIONE" 


28 PRINT"SEGRETA DEL COMPUTER" 
30 PRINT"COL MINOR NUMERO 
31 PRINT"DI TENTATIVI...... Ы 


32 PRINT'EEXEKXXXEXXKXKKKXKXXXX" 


33 PRINT"ANCHE IL COMPUTER" 
34 PRINT"FUO’CERCARE LA TUA" 
35 PRINT"COMBINAZIONE SEGRETA" 


36 PRINTF" 
37 PRINT"NOTA ВЕМЕ-І TRE NUMERI" 


38 PRINT"DELLA COMBINAZIONE" 


39 PRINT"NON DEVONO RIPETERSI!!!" 
40 INPUT"FREMERE RETURN PER INIZIARE":Q$:CLS 


45 PRINTE1$ 

50 PRINTE1$U2$ 
51 PRINTB1$W3$ 
52 PRINTB1$W1$ 
54 РБІМТВ1%Ш5% 
56 PRINTB1$W1$ 
58 PRINTB1$U4$ 
60 PRINTB1$W1$ 


62 PRINT" /-----------"М1%"---" 
64 PRINT" / "01% 

66 PRINT" / "yas 

68 PRINT"/ "44% 

70 PRINT" "IUS 


75 PRINT?292,"TENT " 


Non guasta un poco di for- 
tuna, per trovarla in breve 
tempo. 

Naturalmente quando la 
COMBINAZIONE è ESAT- 
TA la cassaforte si apre mo- 
strando il contenuto. 

Il computer è in grado di 
indovinare una combina- 
zione inventata da noi, ba- 
sandosi sulle nostre rispo- 


80 PRINT@324, "CENT " 
150 GLEAR:M%=25/N%=136/V%=100 
160 DIM А%(У%),В%(М%-У%) 


170 DIM 61%(М%),62%(М%),Н1%(М%) 


200 С61%-0:Сс2%-0 
210 L%=N%:Q%=RND(-TI) 


260 PRINT@450, "UN MOMENTO PREGO 


265 QX=RND(N%) 


290 GOSUB 2200:GOSUB 2000;M$-Q$ 


300 PRINT@450,"G RAZIE 
305 FOR R-OTO 400:NEXT 





caso é possibile che DUE 
ERRORI si ANNULLINO, fa- 
cendo risultare ESATTO un 
NUMERO DI PARTITA IVA 
che non lo é. 














CUMSIMATIG 


ste riguardo alle cifre esatte 
ed alla loro posizione. 

Se sbagliamo a dare le ri- 
sposte, (oppure IMBRO- 
GLIAMO!) il computer se ne 
accorge. 

Provate ad indovinare la 
TOMES in 4 tentati- 
vi!!! 

BUONA FORTUNA! Е] 





»H2%(M%) 


"GOSUB 3000 


308 PRINT@450, "VUOI INIZIARE FER PRIMO": : ІМРОТАФ 


309 PRINTG450," 


310 G$-LEFT$(Q$,1):IF Q$-"N" THENX%=2:GOTO600 


320 IF@$="S" THEN Х%-1:60Т0 500 
330 PRINT®450, "RISPONDI SI О NO! 


500 IFX%=2THEN600 


";FORZ=0T0600:NEXT:G0T0308 


501 PRINT@450, "LA TUA MOSSA-"::INPUT P$ 

502 IFLEFT$(P$,1)-RIGHT$(P$,1)THENSOS 

503 IFLEFT$(P$,1)=MID$(P$,2,1)ORRIGHT$(F$,1)=MID$(P$,2,1)THEN505 
504 IFLEN(P$)=3 THEN PRINT@148,P$:GOTO506 


505 PRINT@450, "ERRORE RIPETI 


"FORY=0T0600:NEXT;GOTOS0O1 


506 IFP$=M$THENG1%=G1%+1:;G1$(G1%)=P$ :H1%(G1%)=9:GOTO3400 
508 IFP$=M$ THENG1%=G1%+1:G1$(G1%)=P$;H1%(G1%)=9:GUOTO3400 


510 MM%=MM%+1:PRINT 6296,ММ% 
520 PRINT@450," 
530 GOSUB 1800 


540 Q$-M$:GOSUB 2600:Q0$-P$:GOSUB1500 


550 PRINTe328,Q* 
560 61%-С 
570 IF Gi%=M% THEN GOTO 3600 


600 IF X&#=1 THEN 500 









f+1/G1$(G1%)=0$;H1%(G1%)=Q% 


13 


14 


605 
612 
613 
614 
618 
620 
622 
625 
630 
640 
650 
660 
665 
670 
680 
800 
805 
810 
820 
830 
840 
850 
860 
870 
900 
901 
902 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1005 
1010 
1020 
1030 
1040 
1050 
1100 
1110 
1120 
1200 
1210 
1220 
1230 
1240 
1250 
1500 
1510 
1520 
1600 
1610 
1800 
1810 
1820 
1830 
2000 
2010 
2100 
2110 
2200 
2210 
2215 


222 
222 


2240 


Q#=L%:GOSUB 2000:G2*-G2**1:G2$(G2*)-Q0$ 
FRINTG450,"LAÀ MIA MOSSA-":Q$ 

PRINT@148,0$ 

MM%=MM%+1 PRINT @296,MM% 
FORZ=0T0800 NEXT 
PRINT@450, "CENTRI (1-3/G)"::INPUT P$:PRINT@329,P$ 
IFP$="0"ORP$="1"ORP$="2"ORP$="G" THEN 630 
IFP$="3"THEN900 
P$-LEFT$(P$,1) 

IF P$="G"THEN H2*(G2*)-9:GOTO 3200 
P#=VAL(P$) 

IFL%> 10THENPRINT@450, "STO PENSANDO.... » 
IFL%<10THENPRINT@450, "ADESSO СІ SONO de 
H2%(G2%)=F%:GOSUB 800 
GOTOS00 
Q$=6G2$ (62%) :H#=H2%(G2%):J%=0:GUSUB 2600 :LX-LX-1 
IFL%<1 THEN900 

J%=I%+1:IFJ%>L% THEN 870 
Q%=J%:GOSUB 2000:GOSUB 1500 

IF Q#=H% THEN 810 
A%=J%!B%=1% :GOSUB 2400:L%=L%-1 

IF L%<1 THEN 900 

IF L%>=J% THEN 820 
RETURN 
X1$=MID$(G2$(6G2%),1,1) 
Х2%-МІр%(62%(62%),2,1) 
X3$=MID$(G2$(G2%),3,1) 

2%=RND(6) 
REMIFZ%=1ANDU1%=0THENQ$=X1$+X2$+X3$:1/1%=1:GOTO1000 
IF2%=2ANDU2%=0THENQ$=X1$+X3$+X24:U2%=1:GOTO1000 
IFZ%=3ANDU3%=O0THENQ$=X3$+X1$+X2$:U3%=1:GOTO1000 
IFZ%=4ANDU4%=0THENQ$=X3$+X2$+X1$:U4%=1:GOT01000 
IFZ#=S5ANDUS%=O0THENG$=X2$+X1$+X3$:U5%=1:GOTO1000 
IFZ%=6ANDU&*=0THENQ$=X2$+X93$+X1$:U6%=1:GOT01000 
IFWJ2%=1ANDU3%=1ANDU4%=1ANDU5%=1ANDU6%=1 THENGOTO1200 
GOTO?910 

PRINT@450, "LA MIA MOSSA-":Q$:" 
ММ%-ММ%%1:РНІМТ6Ө296,ММ% 
FORZ=0T0600 : NEXT 
PRINT@450, "CENTRI (1-3/G)"::INPUT P$ 
P$5LEFT$(P$,1) 

IFP$-"G"THEN 3200 

GOTO9?10 

PRINT@482, "GIOCHI ANCORA": : INPUT Q$ 
IFG$-"S" THEN RUN ELSE CLS:PRINT"C I A0 " 
END 

PRINT@450, "QUALCOSA NON УА” 5 
FORZ-0TOS800:NEXT 

PRINT@450, "HAI SBAGLIATO!!" 
FORZ=0T0800 ; NEXT 

PRINT@450, "ННИНИНИНИНННННН" 

50701100 

P$-LEFT$(G$,1):QX*-0:GOSUB1500 
P$=MID$(Q$,2,1):GOSUB1600 















"{PRINT@148,0$ 


F$=RIGHT$(Q$,1):GOSUB1600:RETURN 

IF P$-M1$ OR P$=M2$ OR P$-M3$ THEN QX-QX**1 
RETURN 

J%=0:F%=0 


J#=J%+1;IFJ%>N% THEN RETURN 
Q%=J%:GOSUB2000:;IFQ$<>F$THEN1810 
F%=1: RETURN 

IF Q%>VXTHEN Q$=B$ (Q%-V%):RETURN 
Q$=A$ (9%) | RETURN 
IFP%>V#THENB$ (Р%-У%) -Р%) RETURN 
A$(P%)=P$ : RETURN 

А%=М+1 

B#=RND(AX) : A%=A%-1 

GOSUB2400 
IFAX-100THENPRINTe450,"CI SONO QUASI...." 
IFA%=2THEN RETURN 


2250 
2400 
2410 
2420 
2600 
2610 
3000 
3010 
3200 
3204 
3206 
3208 
3210 
322 

3400 
3430 
3435 
3440 
3450 
3455 
3460 
3600 
3610 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
5200 
4000 
6020 
6030 
4040 
6045 
6050 
5060 
6070 
6080 
6500 
7000 
7002 
7003 
7004 
7005 
7006 


"7007 


7015 
7020 
7023 
7024 
7025 
7026 
7030 
7040 
7042 
7045 
7046 
7047 
7050 
7051 
7100 


60Т02210 
%-АЖ%!С6050В2000:Р%-0а%:0%-в% 
GOSUB2000: PX-B4:GOSUB2100:P$-Q$ 
P%=A% : GOSUB2100 : RETURN 
M1$-LEFT$(G$,1):M2$-MID$(Q$,2,1) 
M3$-RIGHT$(Q$,1):RETURN 
RESTORE : FORP%=1 TON% : READP$ 
GOSUB2100: NEXT : RETURN 
GOSUR^000 
IFMM%>=7THENPRINT@®450, "OTTIMA FORMULA м, 
IFMM*»SANDMMX«7 THENPRINT®450, "ERA FACILE м 
IFMM% <= 5ТНЕМРКІМТе450, "SONO UN COMPUTER LI 
FORYA=0T0800 : NEXT 
GOTO1100 
PRINT@450, "FORMULA ESATTA 
9%= J% : СО50В2000 
PRINT@450, "OTTIMA FORMULA 
J%=J%+1:IFJ%<=L%THEN3430 
REM 
REM 
REM 
REM 
REM 
ПАТА102,103,104,105,106,107,108,109,123,124,125,126,127,128 
DATA129,120,134,135,136,137,138,139,130,145,146,147,148,149 
DATA140,156,157,158,159,150,167,168,169,160,178,179,170 
DATA189,180,190 
DATA203,204,205,206,207,208,209,234,235,236,237,238,239,230 
DATA245, 246,247 ,248,240,240,256,257,258,259,250,267,268,269 
DATA260,278,279,270,289,280,290 
DATA345,346,347,348,349,340,356,357,358,359,350,367,368,369 
DATA360,378,379,370,389,380,390 
DATA456,457,458,459,450,467,468,469,460,478,479,470,489,480 
DATA490 
DATA567,568,569,560,578,579,570,589,580,590 
DATA678,679,570,689,680,690 
DATA789,780,790,890,980 
REM//////74444144144444444 
Z=208 
PRINT@Z-96," ## л 
PRINT®Z-64," $$$$$$$$ " 
FRINTGZ-32," $$$ ## i 

PRINTeZ," $$$$$$$$ " 
PRINTeZ-*32," du $$$" 
PRINTGZ*64," $$$$$$6$6%% " 


":GOSUB6000:GOTO1100 


"ҒОКҮА-0ТОВ00: NEXT: GOTO1100 


PRINT®Z+96, " n D 
FRINT@Z+128," 100000 $ " 
RETURN 

REM INIZIALIZZA VARIABILI 
Bl$-" I 2 


W2$-CHR$(142) *CHR$ C140) *CHR$(140) 
W3$=CHR$(138)+CHR$(32)+CHR$(32) 
Wi$=CHR$(138)+CHR$(32) 
W4$=CHR$(138)+CHR$ (91) 

W6$=CHR$ (139)+CHR$(131)+CHR$ (131) 
FORI=1T09 

Wi$=W1$+CHR$ (224) 

W2$=W2$+CHR$(140) 

W3$=W3$+CHR$(32) 

W4$=W4$+CHR$ (224) 

W6$=W6$+CHR$ (131) 

NEXTI 

Wi1$=W1$+CHR$(32)+CHR$ (133) 
W4$=W4$+CHR$(32)+CHR$(133) 
W2$=W2$+CHR$(141) 

W3$=W3$+CHR$(133) 

W6$=W6$+CHR$ (135) 
WS$-OHR$(138)*CHR$(32) € CHR$ (224) *GCHR$ (224) 
W5$=W5$+" 2929 "+CHR$ (224) *CHR$ (224) *CHR$ (32) €CHR$ (133) 
RETURN 
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DIE 


. NOSEDA 


Conto corrente 


Il Programma che vi propo- 
niamo, permette la gestio- 
ne di un conto corrente, 


con 


5 6 
в 6 
10 
15 
20 
30 
40 
50 
55 
60 
70 
71 
1/22 
75 
80 
90 
100 
105 
110 
115 
116 
130 
140 
141 
142 
143 
144 
145 
146 
147 
148 
150 
151 
160 
165 
166 
167 
170 
180 
182 


viare su nastro i dati relativi 
ai movimenti. 
Dopo la presentazione del 


la possibilità di archi- titolo, il programma propo- 


LS:OLEAR1000:COLOR1,0:GOSUB1000 
OSUB4 600 

GOSUB4500 

GOSUB2000 

IFSC%=0THEN70 
IFSC%=1THENGOSUB100 
2THENGOSUB200 
S3THENGOSUR300 
IFS65*-4THENGOSUBA400 

GOTO15 

CLS: PRINTTL$ : PRINT 
FORI-1TO10:;A$-INKEY$ :NEXT 
PRINT"HAI ARCHIVIATO I DATI (5/М) 9" 











F$="":SOUND25,3:;F$=INKEY$:IFF$="N"THEN15 
IFF$="S"THEN1O 

GOTO7S 

CLS:PRINTTL$ : PRINT"CAUSAL,I PAGAMENTO FIN = FINE" 
FORI-1TO10 


PRINTOP$(I):PG$(CID): :NEXTI 

PRINT"CAUSALI VERSAMENTO" 
FORI=1T04:PRINTCV$(I):VE$(I)!:NEXT 

R%=UR% :B=C 
C$="":!PRINT@320,BL$ :PRINTe320, "МОУ. "R%:: INPUT" 
F*-0: IF C$="FIN"THENRETURN 

IFLEN(C$) <>ЗТНЕМ140 

IFASC (C$ )>=48ANDASC (C$ ) <=57THENGOSUB500 : IFFX- 1 THEN150ELSE140 
GL$=LEFT$(C$,1):CN%=VAL(RIGHT$(C$,2)) 

IFGL,$ <> "V" ANDCL.$ <> "P" THENSOUND18 , 2: SOUND6, 2: GOTO140 
IFGL$="P"AND(CN%<10RCN%>9)THENSOUND18,2;SOUND6,2:G0T0140 
IFCL$="V"AND(CN%<10RGN%> 4) THENSOUND18,2:SOUNDO,2:G0T0140 
IFCL$="F" THENCN%=CN%+1 


CAUSALE: ":0% 












PRINT@352,BL$ :FRINT@352,""::INPUT"DATA":DT$ 
IFLEN(DT$) <> 6THEN150 
PRINTe384,BL$:PRINTe384,"": : INPUT"IMP.": IM$ 


A-VAL(IM$):A-ABS(A): IFA29999999999 THEN160 

IF GL$="F"THENB=B-A 

IF GL.$="V"THENB=B+A 

PRINT@400, "SALDO" :B 

PRINT@416,BL$::PRINT@416, "CONFERMI (S/N)"::INPUTS$ 
PRINTe320,BL$:BL$:BL$:BL$: 


185 IF S$="N"THEN 130 


186 
187 
190 
191 
T 


IFFX4-1THENAS-VAL(AS$(L,0))- 1:A8$ (CL, O) -STR$ (AS) 
IFFA4-1THENAS$(L,K)-"x*xx" 

C=B:MV$ (RX, 0)=C$ 
MV$(R%,1)=DT$:MV$(R%,2)=RIGHT$(BI$+IM$,10) 
URX=UR%+1 


195 GOTO130 
200 CLS:PRINTTL$:PRINTTAB(8)" ARCHIVIO DATI " 


205 PRINT:PRINT"L.-LEGGE 


S=SCRIVE M=MENU м 


210 INPUT"COSA SCEGLI":5$ 


211 


212 


IFS$="S"THENGOSUB900 : RETURN 
"THENGOSUR800 : RETURN 





213 IFS$-"M"THENRETURN 
215 GOTO 200 


ne un MENU con le se- 


guenti scelte: 
1 - MOVIMENTI 


AUSALI PAGAMENTO 


6 ра? 
8 SPESE BANCA РОЭ 


01 VERSAMENTO vaz 
83 IMT.ATTIVI Vd4 
IV. 1  CAUSALE:? Paz 
DATA? 120885 .—— 0 
WHP.? 123456 


: ` saLDH-123456 
ERMK €S7N)? .— SENI 





3 - ESTR. CONTO 
4 - CODIF. ASSEGNI 
0 - FNE PROGRAMMA. 


2 - ARCHIVIO DATI 


300 
305 
306 
310 
315 
320 
330 
340 
345 
346 
347 
350 
390 
392 
395 
396 
397 
400 
425 
430 
431 
432 
435 
436 
437 
475 
476 
477 
478 
479 
480 
485 
486 
490 
491 
492 
495 
496 
497 
498 
499 
500 
505 
510 
520 
530 
535 
540 
550 
555 


560 








IFUR%=1 THEN RETURN 

FOR I-1TOURX-1 

I$2" "FSTR$CI):I$-RIGHT$(IS$,4)4" " 
IFI/10=INT(I/10)ORI=1THENCLS:PRINTTL$ : PRINTTT$ 
MV$(I,2)-BL$«*MV$(I,2) :MV$CI,2)-RIGHT$(MUV$(T,2) ,10) 
PRINTI$:MV$(I,O)"  "MU$(I,1)" "MU$(I,2) 

IF (I+1)/10=INT((I+1)/10)THENGOSUB390 

NEXTI 

PRINT@416,BL$: :PRINT@416," SALDO : ":C 

PRINT" PREMI M FER TORNARE AL. MENU": 
fi$="":A$=INKEY$: IFA#$ <> "M"THEN347 

RETURN 

S$="":PRINT@416,BL$::PRINT@416, "ALTRA PAGINA (S/N) ": 
INPUTS$ 

IFS$-"S"THEN RETURN 

IFS$="N"THEN I=lR% RETURN 

GOTO 390 

OLS:PRINTTL$ PRINT" CODIFICA LIBRETTO ASSEGNI S 
PRINT"INSERIRE LE ULTIME TRE CIFRE" 


PRINT"DEL PRIMO ASSEGNO DEL LIBRETTO" 
PRINT" (PER USCIRE RETURN)" 

L=1 

PRINT@256,BL$ 

PRINT@256, "LIBRETTO" :L : SOUND25,3;SOUND15,3 
IF VAL(AS$(L,0))<>0THEN495 

PRINT@320,BL$ 

PRINT@320, "ULT.TRE CIFRE PRIMO ASS.": 
UC$=""; INPUTUG$ : IFLEN(UC$) <> STHENRETURN 
IFVAL, (UG ) ZOANDUC$ <> "000" THENRETURN 
FORI-1TO10:AS$(L,I)-UC$ 
UG=VAL(UC$)+1:UC$=STR$ (UC) 
UC$-RIGHT$ (UGS ,LEN(UC$)-1) 

UC$="000"+UC$ ;UC$=RIGHT$(UG$,3) 

NEXT 

AS$(L.,0)="010" 

GOTO435 

PRINTG320,BL$:PRINTe320,A8$(1,0)" ASSEGNI ATTIVI" 
FORI=1T010:PRINT@352, "ASSEGNO: "І: "МВ. ":AS$(L,I) 
FORTM=1T0500:NEXT:PRINT@352,BL$ ; NEXT 
L-L*1:IFL,2THENA3S 

PRINT"MAX. 2 LIBRETTI ":SOUND25,4:SOUND16,3:RETURN 
TFVAL.(AS$(1,0))=Q0ANDVAL(AS$(2,0))=0THENS35 
F*-0:FORI-1TO2:FORJ-1TO10 

IF C$=AS$(1,J)THENF&#=1:L=1:K=J 

NEXTI,I 

IFFZ-1THENCL$-"P":RETURN 
FORI-1TO?2:PRINTG320,BL$ 

PRINTe320," ASSEGNO NON CODIFICATO 
SOUND25,2:S80UND15,2 

SOUND25, 4: NEXT 

RETURN 


guaggio macchina, met- 
tendo a disposizione 
dell'utente un potente MO- 
NITOR di linguaggio mac- 
china. 

Il linguaggio disponibile è il 
famoso Assembly del mi- 
croprocessore Z 80/A. 

Il monitor consente la rea- 
lizzazione di programmi in 
Assembly, ed offre le solite 
funzioni per l'editing, il sal- 
vataggio, l'esecuzione etc. 
di programmi scritti in As- 
sembly. 


Software disponibile 


II LASER 500 continua a 
stupirci. 

L'utente ha la possibilità di 
adottare il SISTEMA OPE- 
RATIVO CP/M. Questo si- 
gnifica che la biblioteca di 
programmi piü vasta del 
mondo è a disposizione 
dell'utente. 

Il sistema operativo CP/M è 
il sistema operativo di com- 
puters professionali e un 
gran numero di programmi 
per uso professionale pos- 


sono essere usati con il LA- 
SER 500. 

E disponibile anche il lin- 
guaggio di programmazio- 
ne LOGO, che permette un 
uso didattico del computer, 
e lo rende particolarmente 
adatto in ambiente scola- 
Stico. 

E i giochi? 

Nessuna preoccupazione! 
La Scuola Scheidegger ha 
messo in produzione nu- 
merosi video-games che 
magnificano le caratteristi- 
che grafiche del computer, 
oltre ad offrire simpatiche 
opportunità di divertimen- 
to. 

Alcuni titoli tra i molti: 
CITY INVASION: gioco spa- 
ziale contro i "VISITATORI" 
invadenti. 

MOON LANDER: missione 
lunare con grandi rischi e 
difficoltà. 

MINE KILLER: la salvezza 
del porto e nelle vostre ma- 
ni. 

PAINT: utility delle numero- 
se possibilità per realizzare 
splendidi disegni in grafica 
ad alta risoluzione, misce- 











lando testo ed immagini. 





Un'occhiata al manuale 


Il manuale originale è molto 
dettagliato ed esauriente, e 
permette di scoprire i nu- 
merosi segreti del compu- 
ter con facilità. E necessario 
munirsi di pazienza e buo- 
na volontà per riuscire ad 
impossessarsi completa- 
mente di un computer cosi 
versatile quale è il LASER 
500. 


Conclusioni 


Siamo costretti a chiudere 
qui il servizio su questo fan- 
tastico computer, anche se 
ci sarebbe veramente mol- 
to ancora da dire. 

Diamo appuntamento ai 
lettori al prossimo articolo, 
anche per dare la possibili- 
tà ai già numerosi utenti del 
LASER 500 di far sentire la 
propria voce. 

Ma tu ... non lo hai ancora 
acquistato??? 


Non perdere l'occasione, 
perché il prezzo del LASER 
500 è veramente contenuto 
ed accessibile a chiunque. 

















Software 


Regressori 
lineari DI G. VENTURINI 


Il programma che propo- 
niamo permette di calcola- 
re l'equazione di una retta, 
operando una regressione 
lineare su una serie di dati, 
indicati dalle variabili X e Y. 
Dopo che l’utente ha inseri- 
to le coppie di coordinate X 
e Y note, il computer calco- 
la l'equazione della retta 
regressa, e ne visualizza la 
formula, nella seguente for- 
ma: 

Y=a+ bX 

a = TERMINE NOTO 

b = coefficiente di X 

E possibile vedere anche la 
rappresentazione grafica 
sia dei punti inseriti 
dall'utente, sia della retta 
che è stata calcolata. 
Inoltre il computer permette 
di calcolare un qualsiasi 
valore di X, inserendo il va- 
lore di Y o viceversa: calco- 
lare un qualsiasi valore di Y 
per un qualsiasi valore di X. 
Contemporaneamente 
all'equazione della retta il 
computer calcola un 
COEFFICIENTE che indica 
la QUALITA della REGRES- 
SIONE. 

Si tratta di un valore nume- 
rico tra O e 1 piü tale coeffi- 
ciente è vicino ad 1, miglio- 
re è la regressione lineare. 
Prima di affrontare lo studio 
del problema, ed analizza- 
re il programma, vediamo- 
ne una possibile applica- 
zione pratica. 

ESEMPIO: 

Supponiamo di avere i dati 
relativi alle vendite di sei 
mesi di un certo prodotto: 


MESE VENDITE 
[X] l [Y] 
1 (Gennaio) 15 
2 (Febbraio) 42 
3 (Marzo) 58 





4 (Aprile) 70 
5 (Maggio) 83 
6 (Giugno) 100 


| mesi da 1 a 6 sono le coor- 
dinate X, mentre le quantità 
vendute, sono le coordina- 
te Y. 

Dopo l'inserimento dei dati 
di cui sopra otteniamo la 
seguente equazione: 

Y = 5.33333 + 16 X 

La QUALITA della regres- 
sione è .98002 poichè tale 
valore é molto prossimo ad 
1 possiamo constatare che 
le vendite del prodotto han- 
no avuto aumenti progres- 
sivi in modo lineare. 
Supponendo che tale au- 
mento lineare prosegua 
fino alla fine dell'anno, po- 
tremo calcolare subito 
quante unità saranno pre- 
sumibilmente vendute nel 
mese di Dicembre: 
Premendo il tasto Y (per 
calcolare Y) ed inserendo il 
valore 12 (cioè Dicembre) 
come valore di X, ottenia- 
mo la risposta seguente: 
Х = 12 Ү = 197.333 
In Dicembre venderemo 
197 unità circa. 

Possiamo anche calcolare 
in quale mese raggiunge- 
remo le 150 unità vendute: 
premendo il tasto X (per 
calcolare X) e inserendo il 
numero 150 come valore di 
Y, avremo il seguente risul- 
tato Y = 150 X = 9.004 
Ció significa che a Settem- 


10 CLS:REM REGRESSIONI LINEARI * 


J 


20 GOSUB1000 : 
30 GOSUB2000 : 


REM INIZIALIZZA 
REM ISTRUZIONI Ж 


40 GOSUB3000: REM INPUT DATI 


50 GOSUB3500 : 


REM EQUAZIONE 


60 CLS:PRINTT$ 

70 PRINT"EQUAZIONE DELLA RETTA:":PRINT 
80 PRINT"Y-"A"*"B"XX":PRINT 

90 PRINT"QUALITA' REGRESSIONE: ":R2:FRINT 


100 
105 
110 
120 
125 
130 
135 
140 
145 
150 
160 
170 
180 
190 
1000 
1005 
1010 
1020 
1030 
2000 
2005 
2006 
2008 
2010 
2012 
2014 
2016 
2018 
2020 
2022 
2024 
m 


25 








2034 
2036 
2038 
2040 
2042 
2044 
2045 
2046 
2048 
2050 
2052 
2054 
2056 
2058 
2900 
2905 
2910 
2920 
2930 
2950 
3000 
3010 
3020 
3080 
3040 
3042 
3043 
3050 
3060 
3070 
3075 
3080 
3082 
3090 
3091 
3092 
3093 
3100 
3110 
3200 
3210 
3220 
3230 
3235 
3240 
3300 
3310 
3320 
3330 
3335 
3340 
3450 
3500 
3510 
3520 
3530 
3540 


PRINT@2O1, "#4#4#4### OPZIONI ######" 


PRINT" * X - CALCOLO DI X #" 
PRINT" # Y - CALCOLO DI Y в" 
PRINT" # A > ALTRI DATI #" 
PRINT" # G - GRAFICO #" 
PRINT" # F - FINE PROGRAMMA #" 
PRINT" GAEE EEEE EEE E EE EEEE EE EE AI 


GOSUB2905 
IFA$="F"THENCLS:END 
IFA$-"A"THENAO 
IFA$ THENGOSUB5000 
IFA$="X"THENGOSUB3200 
IFA$-"Y"THENGOSUR3300 
GOTOGO 
REM Ж INIZIALIZZA Ж 
T$=" REGRESSIONI LINEARI 
DIMX(100),Y(100) 








N=0!XM=0:XL=0;YM=0:YL=0:SX=0:SY=0:;X2=0:Y2=0:;XY=0 


RETURN 
CLS:PRINTT$ 


PRINT"ISTRUZIONI (S/N) ?"::GOSUB2905: IFA$-2"N"THENRETURN 


IFA$«»"S"THEN2000 

OLS:PRINTT$ 

PRINT"QUESTO PROGRAMMA CALCOLA" 
PRINT"L EQUAZIONE DI UNA RETTA," 
PRINT"ESEGUENDO UNA REGRESSIONE" 
PRINT"DELLE COORDINATE X E Y CHE" 
PRINT"L ‘UTENTE INSERISCE.":PRINT 
PRINT"L'EQUAZIONE DELLA RETTA VIENE " 
PRINT"MOSTRATA СОМ LA FORMULA!" :PRINT 
PRINT" VY KA HUBER 

GOSUB2900 

CLS:PRINTT$ 

PRINT"DOPO AVER INSERITO I VALORI" 
PRINT"SI HANNO LE SEGUENTI OPZIONI: 
PRINT"TASTO X CALCOLO VALORI DI X 
FRINT"TASTO Y CALCOLO VALORI DI Y 
PRINT"TASTO G  VISUALIZZA GRAFICO 
PRINT"TASTO А INSERIMENTO ALTRI DATI" 
PRINT"TASTO F FINE LAVORI" 

GOSUB2900 

CLS:PRINTT$ 

PRINT"IL PROGRAMMA FORNISCE ANCHE" 
PRINT"UN VALORE NUMERICO CHE INDICA" 
PRINT"LA QUALITA’ DELLA REGRESSIONE. 
PRINT"SI TRATTA DI UN NUMERO TRA 0 E 1" 
PRINT"PIU' TALE VALORE E’ PROSSIMO А 1" 
PRINT" MIGLIORE Е” LA REGRESSIONE." 


PRINT@480," PREMI UN TASTO PER PROSEGUIRE": 


S0UNI)25,2:S0UND25,2:S0UND25,2:FORI=1T018 
B$="":B$=INKEY$ :IFB$=""THEN2910 
A$=B$ :NEXT 
FORI=1T018:B$=INKEY$ : NEXT 
RETURN 

REM * INSERIMENTO X E Y * 
GLS:PRINTT$ M 
PRINT"INSERIMENTO":N*1 
SOUNDZ25,1 

PRINT:PRINT"PER TERMINARE;:" 
PRINT"INSERIRE E’ AL, POSTO" 
PRINT"DEL VALORE DI X O DI Y.":PRINT 
X$="" PRINT; INPUT"Xz-":X$ 
IFX$="F"THENRETURN 

ysz" RINT: INPUT"Y-":Y$ 
IFY$-"F"THENRETURN 
X=VAL(X$):Y=VAL(Y$) 

N=N+1 :X(N)=X:Y(N)=Y 
TFX<XLTHENXL=X 
IFABS(X)>XMTHENXM=ABS(X) 
IFY<YLTHENYL=Y 
TFABS(Y)>YMTHENYM=ABS(Y) 






SX-SX*X:8Y-28Y*Y:X2-7X24 XX :Y2- Y2*YXY | XY-XY XY 


GOTO3000 
CLS:PRINTT$ 
PRINT" CALCOLO VALORI DI X" 


PRINT: INPUT" Yz":Y$;Y-VAL(Y$) 
X=(Y-A)/B 

PRINT:PRINT" BER YELLS ХЕК 
GOSUB2900 : RETURN 

GLS:PRINTT$ 

PRINT" CALCOLO VALORI DI Y" 
PRINT:INPUT" X2":X$:X-VAL(X$) 
Y=A+B#4X 

PRINT:PRINT" PER X-":X"-- NS 
GOSUB2900 ! RETURN 


R2=K1#K1/K3 

REM XCALCOLO EQUAZIONE4 
Кі-ХҮ-5ХЖ5Ү/М)К2-Х2-5Х%5Х/М 
B=K1/K2 

A=SY/N-BXSX/N 
K3-Y2-SYX*5Y/N :K3=K24K3 
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bre raggiungeremo il tra- 
guardo di 150 unità vendu- 
te. 

Premendo il tasto G possia- 
mo vedere la rappresenta- 
zione grafica dei dati inseriti 
e della retta regressa. 

Il grafico che viene visualiz- 
zato riporta gli assi carte- 
siani con lo ZERO centrale. 
Nel nostro caso, risulta inte- 
ressato dal grafico solo il 
quadrante dei valori POSI- 
TIVI di X e di Y. 

Premendo un tasto qual- 
siasi il grafico sparisce, e 
sul video ricompare l'equa- 
zione della retta e il MENU 
con le OPZIONI. 

E possibile inserire nuovi 
valori premendo il tasto A 
(cioè Aggiornamento). 
ESEMPIO: 

Supponiamo che le vendite 
del mese 7 (Luglio) siano di 
130 unità (valore di Y 2130) 


premendo il tasto A possia- 
mo inserire la nuova coppia 
di valori X e Y. 

Dopo l'inserimento possia- 
mo verificare che l'equazio- 
ne della retta è cambiata 
come segue: 

Y = 1.71429 + 17.3571 X 
QUALITA REGRESSIONE 
.979416 la qualità della re- 
gressione è diminuita, ma è 
un valore ancora accettabi- 
le. In questo caso calcolan- 
do le vendite di Dicembre 
otterremo 210 al posto di 
197. Questo significa che 
се stato un aumento delle 
vendite МОМ LINEARE, 
cioé che in Luglio abbiamo 
venduto di piü di quanto 
era previsto. 

Per tale motivo la qualità 
della regressione è dimi- 
nuita rispetto alla regressio- 
ne precedente. 

NOTE: 


Invaders 


3550 R2=K1*K1/K3 

3560 RETURN 

5000 REM ¥ GRAFICO Ж 

5010 MODE(1) 

5020 COLOR2 

5030 FORI-0TO63:SET(53,1) : NEXT 


5040 FORI-0TO127:SET(I,31):NEXT 


5100 AX-63/XM:AY-31/YM 
5110 COLORS3:FORI-1TON 
5120 Х-Х(І)ЖАХ:ҮзҮ(І)ЖАҮ 


5125 IFX<-630RY<-310RX>640RY>31THEN5140 


5130 SET(634X,31-Y) : SOUND25,3 
5140 NEXT 


5200 COLOR2:FORI=XLTOXMSTEP1/AX 


5210 X=IXAX:Y=AYX(A+BX1) 
5215 X-INT(X):Y2INT(Y) 


5220 IF(X<-630RY<-31)OR(X>630RY>31)THEN5250 


5230 SET(63*X,31-Y) 
5250 NEXT 

5260 GOSUB2905 
5270 RETURN 


1 - PER ESEGUIRE LA RE- 
GRESSIONE E NECESSA- 
RIO INSERIRE ALMENO 
DUE COPPIE DI VALORI 
X. Y. 

2 - IN ALCUNI CASI (molto 
particolari) potrebbe verifi- 
carsi un ERRORE dovuto a 
DIVISION BY ZERO. 

In caso di errore DIVISION 
BY ZERO il programma si 


interrompe ed é necessario 
rieseguirlo da capo. 

Tale errore avviene SOLA- 
MENTE se i dati inseriti 
dall'utente NON CONSEN- 
TONO il calcolo della RE- 
GRESSIONE (valori non 
coerenti). O 





КҰЖЖ Ж ЖЖЖЖ ЖЖ ЖҰЖ o b b Я 
NAVA DIE RESA 
ҰЖЖ ЖҰЖ ЖҰ ЖҰЗ ЖЖ ҰҰ Ж ЖҰЖ 


13 DATA33,120,112,17,32,0,54,0,35,54,0,25,54,0,43,54,0,25,54,0 
20 DATA35,54,0 ,0,43,54,0,25,54,0,35,54,0,25,54,0 
30 DATA43,54,0 »0,35,54,0,33,120,112,54,1,35,54,80,25,54,80 









50 DATA 43,54, ;94,0,35 
60 DATA 54, 05,2 4,895,483 
62 DATA 54,21 4:17,35 


64 DATA 54,80 4,16,43 

66 DATA 54,1, 54,5,35 

68 DATA 54,20,201,201,0.0 

70 DATA 0,0,0,0,0,0 

72 DATA 0,0,0,0,0,201 

100 БАТА 33,82,118,17,32,0 

102 NATA43,54,0,43,54,128,43,54,0,42,49,25 

104 DATA35,54,0,35,54,10,35,54,168,35,54,0,35,25 

106 DATAS4,0,43,54,130,43,54,170,43,54,170,43,54,92,43,54,0,25 
108 DATAS4,0,35,54,41,35,54,153,35,54,153,35,54,154,35,54,0,25 
110 DATAS4,0, 154,2,43,54,162,43,54,34,43,54,32,43,54,0,25 
112 DATA35,5 32,35,54,130,35,54,0,201 

200 DATAS3 54,0,35,54,0, 54,0,43,54,0,28,54,0 
210 DATA35, »25,54,0,35,54,0,25,54,0 

220 DATA43, 924,0,35,54,0,33,120,112,54,5,35,54,80,25,54 
230 DATA68,43, 125,54,85,35 

240 DATA 54.85 

250 DATA 54, , 
260 DATA 54,16 
270 DATA 54,4 ,2 

280 ПАТА 54,20,201,201,0,0 

290 DATA 0,0,0,0,0,0 

300 DATA 0,0,0,0,0,201 

310 РОКЕЗ0744,1 

400 MODE(0) :FRINT@6," INVADE RS "PRINT 

410 PRINT"12 ALIENI INVADONO" 

420 PRINT"LA TUA ZONA DI GUARDIA SPAZIALE.(6 PER VOLTA)" PRINT 
430 PRINT" L'ORDINE E'DI ABBATTERLI":PRINT 

440 PRINT". І COMANDI DELL’ASTRONAVE SONO-":PRINT 

450 PRINT"TASTO , VERSO DESTRA":PRINT 



















460 
470 
480 
500 
510 
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PRINT"TASTO М VERSO SINISTRA":PRINT 
PRINT"TASTO А PER SPARARE" 

FOR A=0T09000: NEXT 
FORA-25698TO25493STEP'- 1 

READL. 

POKE-A,1.: NEXT 


1.1=30862:M1=158:L2=30863;M2=155:C1=9;(2=156:Z=82:;TY=B0 


600 MODE(1):S1=PEEK(-25590)+30110 

610 FORR-29029TO290S0STEP4:POKER,170:POKER*32,170 
620 POKER*1,170:POKER*33,170:NEXT 

630 FORU-OTO63:SET(0,W) : SET( 127, V) : NEXT 

640 FORW-OTO127:SET(W,63) : SET(U, 0) : NEXT 

900 DIMI(8) 

920 B--25651:82-29168 

930 

940 POKEL. i, Mi :POKEL2,M2 


950 
960 
970 
980 
1000 


FORA=101T0121STEP4 
РОКЕ:-25650,А:РОКЕ-25697,А-2 
X=USR( 1) : NEXT 
POKEL1,0C1:POKEL2,C2: X-USR(I) 
FORG-1TOS1STEF3:SOUNDG,1:NEXT 









1005 FORA-101T0121STEP4:8-8*1:1(8)-A: NEXT: S20 

1010 FORA=101T0121STEP4:;S=S+1:POKEL1,M1:POKEL2,M2 

1020 POKE-25650,A:POKE:-25697,A-2 

1030 ІҒІ(5) =АТНЕМРОКЕВ, 33: X-USR(I)ELSEPOKEB, 201 : X-USR(I) 
1050 

1052 290864Z 

1054 ES2,105:POKES2-95,0 

1056 IFS2»301324NDPEEK (8242 + OTHENGOTO4500 

1060 IFZ»7OANDINKEY$-"M"THE| 2-1 :POKE-25590,2Z:X=USR(I) 
1070 IFP=0ANDINKEY$="A"THENSi=PEEK(-25590)+80110:P=1 
1080 IFP-1THENP1-P1*256:POKES1-P1,64:POKES1-PF1*256,0 
1085 IFP1-1024ANDPEEK (81-1280) > OANDPEEK (851-1120) -OTHENGOSUBA4000 
1090 IFPI=1024THENP=0:POKES1-P1,0:P1=0 

1100 IFZ:94ANDINKEY$-","THENZ-Z*1:POKE-25590,Z:X-USR(I) 
1110 NEXT:POKEL1,Gi:POKEL2,02 . 





30133THENS2-82495:POKES2,150: POKES2- 96,0 





1200 IFS2»30132THENPFOKES2,0:82-29086-*Z 

1210 IFS2 

1220 IFS2?30132ANDPFEEK (82224) > OTHENGOTO4500 
1510 FORT=0T03 


1520 


IFZ» 7ОАМПІМКЕҮ$= "М"ТНЕМ2=2-1 : РОКЕ- 25590,5: X-USR(CI) 
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Le porte аі comunicazio- 
ne 


Sul retro sono presenti le 
porte аі comunicazione, 
con la rete di alimentazio- 
ne, e con le periferiche. 

E possibile comunicare 
con il REGISTRATORE, con 
la STAMPANTE, con il 
PLOTTER, o con il DRIVE 
per FLOPPY-DISK, oltre alla 
LIGHT PEN. 

Le periferiche a disposizio- 
ne sono le più diffuse ed 
utili, per cui anche per que- 
sto aspetto possiamo solo 
rallegrarci. 

Da non trascurare la possi- 
bilità di espandere la me- 
moria RAM fino a 144.000 
BYTES, usando l’apposita 
espansione opzionale. 


Lo schermo 


IL LASER 500 COMPUTER 
COLOR può essere colle- 
gato ad un normale televi- 
sore B/N o colore, oppure 
ad un MONITOR monocro- 
matico o a colori. Con il mo- 
nitor a colori è possibile 
avere immagini molto bril- 
lanti e nitide, e colori ecce- 
zionali. 

Le sorprese continuano: il 
LASER 500 offre una gam- 
ma di prestazioni video non 
comuni. 

In modo TESTO è possibile 
scegliere tra un video a 24 
righe e 40 colonne, oppure 
un video con 24 righe e 80 
colonne, per un totale di 
1920 BYTES di video. 

| colori a disposizione sono 
16, ed è possibile selezio- 
narli per colore di bordo, 
sfondo, e testo. 

In grafica ad alta risoluzio- 
ne le scelte si moltiplica- 
no!!! 

Rimane solo l'imbarazzo 
della scelta, in quanto il LA- 
SER 500 offre ben 6 livelli 
diversi di grafica, tutti con 
stuzzicanti possibilità, per 
usi diversi. 

In dettaglio, è possibile se- 
lezionare uno schermo gra- 





fico costituito da 160 x 96 
pixels con 16 colori, oppure 
uno schermo con 160 x 192 
pixels, oppure 320 x 192, 
oppure 640 x 192 punti, 
questo per citarne solo al- 
cuni. 

A questo proposito è dove- 
roso aprire una breve pa- 
rentesi sul software, che piü 
avanti sarà trattato esau- 
rientemente: le meraviglie 
della grafica ad alta risolu- 
zione sono esaltate dal pro- 
gramma PAINT che é di- 
sponibile su nastro. 
Questo programma in Lin- 
guaggio Macchina, per- 
mette di comporre disegni 
sul video, usando i 16 colori 
disponibili. 

Il disegno può essere faci- 
mente salvato su una me- 
moria di massa (nastro ma- 
gnetico), e può servire co- 
me base per la realizzazio- 
ne di altri programma. 


Software di base 


Anche l'utente più esigente 
trova soddisfazione com- 
pleta, quando scopre le 
meraviglie di 32 KBytes di 
R.0.M. in cui risiedono le 
più sofisticate e desiderabi- 


li funzioni. 

Il BASIC in dotazione al LA- 
SER 500 è la versione 3.0 
della VIDEO TECHNOLO- 
GY, e consiste in una esten- 
sione molto ampia del fa- 
moso e diffuso BASIC MI- 
CROSOFT. 

| comandi di sistema, le 
istruzioni e funzioni sono le 
più complete ed appetibili. 
Ci sono comandi di grande 
utilità, come AUTO per la 
numerazione automatica 
delle righe, RENUM per la 
rinumerazione di un pro- 
gramma, oppure TRON e 
TROFF per il controllo del 


programma. 
Siamo stupiti nello scoprire 
l'istruzione ОМ ERROR 


GOTO che permette di 
controllare il flusso del pro- 
gramma in caso di errori, e 
le variabili di sistema ERR 
ed ERL che consentono di 
identificare il tipo di errore 
(che può essere codificato 
a piacere), e la riga in cui 
l'errore si è verificato. Que- 
ste sono possibilità di pro- 
grammazione eccezionali 
per chi desidera impostare 
programmi professionali, 
con un controllo totale 
dell'INPUT da tastiera. 

Tra le istruzioni citiamo RE- 





STORE LN che consente di 
ripristinare la lettura dei DA- 
TA ad una riga predefinita. 
Come detto sopra i tasti di 
funzione possono essere 


programmati facilmente 
con la funzione KEY. E pos- 
sibile ridefinire i 30 tasti di 
funzione come piü ci piace. 
Il Laser 500 dispone anche 
di istruzioni evolute quali 
COLOR, DRAW, MOVE, 
SET, RESET, POINT che 
consentono l'uso dei 6 li- 
velli di grafica ... con una ve- 
locità di esecuzione che ra- 
senta l’incredibile!!! 

Il bagaglio delle istruzioni, e 
comandi disponibili è tal- 
mente vasto che sfiora, o 
forse supera i 150 vocabli!!! 
E da notare che un home- 
computer MOLTO PUBBLI- 
CIZZATO, e FAMOSO PERI 
SUOI 64K è in grado di rico- 
noscere soltanto 60-65 pa- 
role BASIC: meno della 
metà di questo eccezionale 
LASER 500!!! 


Monitor di 
macchina 


linguaggio 


Sorpresa tra le sorprese il 
LASER 500 dà atutti la pos- 
sibilità di operare in lin- 
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o Informazioni 


HANNO COLLABORATO G. VENTURINI - E. NOSEDA - B. POTITO 


Il “sistema” LASER 500 


Una novità tutta da scoprire! 


Non è difficile conciliare 
І“аррагеп2а” con la "so- 
stanza", e ci sembra pro- 
prio che il computer LASER 
500 dimostri come sia pos- 
sibile realizzare un home- 
computer con caratteristi- 
che semi-professionali, e 
con un aspetto invitante. 


Un'occhio all’HARDWARE 


Il primo impatto è decisa- 
mente positivo. 

La tastiera si presenta ben 
progettata, con 77 tasti di- 
stribuiti in modo razionale. Il 
costruttore si è anche 
preoccupato di colorare in 
modo diverso i tasti di SE- 
LEZIONE, CONTROLLO, 
FUNZIONE, oltre al tasto di 
IMMISSIONE (RETURN), 
per permettere una più ra- 
pida identificazione dei ta- 
sti stessi. 

Tra i tasti di controllo risalta- 
no: 

Il tasto CTRL, il tasto ESC, 
ed i soliti tasti SHIFT posti 
su due lati. Inoltre troviamo 


il tasto GRAPH che permet- 
te di selezionare i caratteri 
grafici. 


Il tasto BS (BACK SPACE) 
si trova nella solita posizio- 
ne in alto a destra, mentre i 
restanti tasti di EDITING so- 
no stati collocati in una zo- 
na separata, sul lato destro. 
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In tale zona troviamo: 

| quattro tasti per il movi- 
mento del cursore. 

I| tasto di correzione DEL ed 
il tasto di inserimento INS, 
il tasto HOME ed il tasto 
CLR. 

Inoltre c'é un tasto DEL LI- 
NE che permette di cancel- 
lare una riga della posizio- 
ne del cursore, fino alla fine. 
La sorpresa piü piacevole é 
scoprire che i tasti di FUN- 
ZIONE, contrassegnati con 
le sigle solite F1, F2, ЕЗ ... 
etc. sono già programmati 
all'accensione, inoltre 


usando il tasto SHIFT, op- 
pure il tasto CTRL si può di- 
sporre di un totale di 30 ta- 
sti di funzione PROGRAM- 
MABILI!!! 

| tasti alfanumerici sono di- 
sposti su una tastiera 
QWERTY, e consentono 
l'uso di caratteri MAIUSCO- 
LI e MINUSCOLI contem- 
poraneamente (ma quante 
piacevoli novità!!!). 

Inoltre usando il tasto CTRL 
si dispone dei comandi 
BASIC pre-programmati, 
funzione importantissima 
ed utile per chi vuole scrive- 


. МР 





ге programmi in modo 
semplice e comodo. 
Come già abituati sui mo- 
delli precedenti, i tasti han- 
no tutti l'autoripetizione, ed 
il segnale acustico di avve- 
nuta pressione. 

Un ultimo tasto di impor- 
tanza eccezionale è il tasto 
di RESET, che permette di 
ripristinare le condizioni 
standard senza dover spe- 
gnere il computer. 





Ill Laser nascosto 


Paint per Laser 310 


Nel realizzare questa complessa 
ed importante utility abbiamo 
pensato a tutti gli utenti del LA- 
SER 310. 

Come è noto, per realizzare dise- 
gni in alta risoluzione é necessa- 
rio servirsi delle funzioni grafiche 
SET, RESET, COLOR e MODE. 

A molti potrà sembrare una fatica 
eccessiva calcolare tutti i punti e 
tutti i colori che occorrono per 
realizzare un disegno un poco 
complesso. 

Per la buona riuscita di un pro- 
gramma è necessario che lo svol- 
gimento del programma stesso 
sia affiancato anche da una grafi- 
ca piacevole. 

Questo programma risolve nu- 
merosi problemi, permettendo la 
realizzazione di disegni di qual- 
siasi genere, usando la grafica in 
alta risoluzione, ed i colori. 

La cosa più interessante è che 
non è necessario eseguire alcun 
calcolo, ma è sufficiente avere un 
po' di fantasia e una minima са- 
pacità del disegno. 

Il computer fa tutto il resto, fornen- 
do matita, colori, e gomma per 
cancellare eventuali errori, o per 
modificare il disegno a proprio 
piacere. 

Cominciamo a prendere confi- 
denza con i comandi, ed a capir- 
ne il funzionamento. 

Il programma permette di conser- 
vare nella memoria contempora- 
neamente ben 3 (TRE) disegni, 
con la possibilità di richiamarli a 
piacere. 

Dopo aver caricato il disegno è 
necessario digitare le seguenti 
istruzioni : POKE 30969,200 : PO- 
КЕ 30970,182 (premere RE- 
TURN). й 

Questo deve essere fatto PRIMA 
di dare il comando RUN che man- 
da in esecuzione il programma. 
Per prima cosa il computer con- 
trolla se in memoria c'è qualche 
disegno, e segnala quanti even- 
tualmente esistono già. 

Poi chiede se si desidera che alla 
fine del programma i disegni sia- 
no salvati su nastro o su disco. 
E necessario rispondere alle do- 
mande, ed eseguire le scelte che 
si ritengono più opportune, ricor- 
dando che il registratore o il DRI- 
VE dei dischi devono essere col- 
legati PRIMA di accendere il com- 
puter. 


PAI 


NT (64К RAM) 


1 POKE30862,100:POKE30863,146 


ZUR 
10 
15 
20 


180 
190 
200 
210 
250 
260 
300 
310 

20 
330 
340 
350 


EM 310C 
DS20:GOTO4000 
POKE30744,1:CLS 


РКІМТе5,05:". DIN SE GN ОХ 
PRINTOJ G cp EE 
PRINT" TABELLA COMANDI " 
PRINT@128, "COLORI 


PRINT"COLORE SFONDO ( 
PRINT"COLORE PENNA ( 
PRINT"SAVE IN MEMORIA 
PRINT"VERIFY MEMORIA 
PRINT"NUOVO DISEGNO 

PRINT"SAVE NASTRO/DISK 


1). 
1) 


Уу G B Fi 
(2).(38).(4)." 
(2). (3). (4). " : PRINT 
COE 
GV 
(R)"; 
(0) ":РКІМТ:РКІМТ 


ERUNT PREMI -RETURN-":POKE30873,0 


IFFEEK (30873) <> 13THEN65 


POKE30873,.0:SOUND10,2:CL8 


PRINT"COLORE SFONDO" 


DEINDE D "PRINT 
PRINT" 1 = VERDE" 
PRINT" 2 = GIALLO" 
PRINT" з = ЕШ 
PRINT" 4 = ROSSO" 
PRINT@3 26, "COLORE SFONDO 2": 


FORQ-0TO10:IFQ-STHENPRINTe340,"9" 


POKE30873,0 


C=PEEK ( 30873) : PRINT@422," (RETURN) PER USCIRE" 
IFC=49THENSF%=0!£=1:PRINT@342, "VERDE — ":S0UND10,1 


IFC=52THENSF#=255 





=4:PRINT@®342, "ROSSO  ":S0UND10,1 


IFC=5S0THENSF%#=85!Z=2PRINT@342, "GIALLO ":S0UNDIO,1 


IFCZS1THENSFX-170:Z23:PRINTG342, "BLU" 


IFQ-10THENPRINTG340," " 


" ;SQUND10,1 


IFC-13THENSOUND10,2:GOTO130 


NEXT:GOTO90 


IFZ-OTHENPRINTGe326,"E R R O RE !":S0UND20,7:GOTO88 


IFDS?»1THEN180 


CLS;PRINTe32,"DISEGNI DA SALVARE" 


PRINT" 


1 PRINT PRINT 


5007500 ТАЗТО у 
SU NASTRO TASTO (Т) ":РБІМТ:РБІМТ 


PRINT@294, "SAVE ? ":F=PEEK(30873) 
IFF=84THENPRINT@303, "NASTRO" : ЗА= 1 
IFF=68THENPRINT@3083, "DISCO" i SA=2 
IFF*84ANDF <> 68THENPRINT®300," ":GOTO150 


PRINT@312, "OK" (SOUNDIO, 1 


FORT=0T0990 : NEXT 
IFDS=2THEN1200 
IFDS-3THEN2200 


МОРЕ (1) :К=2: IFSF-OTHEN250 
РоОКа%=28672Т030719:РОКЕЗЯ, SF : NEXT: PORE30873,0 


С=РЕЕК (30873) 


IFG?48ANDCZS53THENK-C- 48: SQUND30, 2; РОКЕЗОВТЗ, 0 


Р=РЕЕК (24863) 
IFP=223ANDX> OTHENX=X- 1 


IFP=247ANDX127THENX=X+1 


TFP=239ANI)Y<63THENY=Y+1 
IFP=253ANDY> OTHENY-Y- 1 
NESETUS. Y) 
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La realizzazione del disegno av- 
viene usando i tasti di movimento 
del cursore (usandoli senza il ta- 
sto CTRL). 

Le scelte possibili per la selezione 
del colore di fondo e del colore 
del pennello sono ricordate da 
una tabella, in cui ai colori VERDE, 
GIALLO, BLU e ROSSO sono as- 
sociati i tasti NUMERICI da 1 a 4. 
La scelta del colore di sfondo de- 
ve essere fatta all’inizio, rispon- 
dendo con uno dei quattro colori 
numerati da 1 a 4. 

La scelta del colore con cui si vuo- 
le disegnare invece può essere 
fatta in qualsiasi momento, pre- 
mendo sempre il tasto da 1 a 4, 
relativo al colore scelto. 

Per calcellare è sufficiente impo- 
stare il colore del pennello ren- 
dendolo uguale al colore che era 
stato scelto per il fondo. 

Per memorizzare un disegno, do- 
po averlo eseguito premere il ta- 
sto S (SAVE in MEMORIA). 
Prima di eseguire il salvataggio è 
necessario impostare il colore del 
cursore lampeggiante rendendo- 
lo uguale al colore dello sfondo, 
per evitare che sia memorizzato 
assieme al disegno. 

Per verificare il corretto salvatag- 
gio premere V (VERIFY). 

Per salvare su nastro о su disco è 
necessario PRIMA DI TUTTO, sal- 
vare il disegno nella memoria co- 
me detto sopra, e dopo aver verifi- 
cato premere il tasto D (SAVE NA- 
STRO/DISK). 

Per verifica abbiamo realizzato un 
gioco dal titolo GIRO D'ITALIA, e 
come potete vedere dalla fotogra- 
fia allegata il risultato è soddisfa- 
cente. 

Inoltre i disegni salvati possono 
essere inseriti in altri programmi, 
permettendo di realizzare nuovi 
giochi, o programmi di altro tipo. 
Per fare questo é necessario cari- 
care il disegno o i disegni che 
avete salvato. 

Il caricamento può essere fatto 
con il comando CLOAD (о 
LOAD"- nome disegno” se usate i 
FLOPPY DISK). 

Dopo aver caricato il disegno da- 
re il comando NEW per azzerare 
l'area di memoria riservata ai pro- 
grammi BASIC. 

Caricare ed eseguire il vostro pro- 
gramma BASIC, ricordando che 
per visualizzare i disegni è neces- 
sario inserire nel programma 
stesso le seguenti istruzioni. 





DISEGNO 1 
POKE 30862,24 :  POKE 
30863,174 : MODE (1) : X-USR(I 
DISEGNO 2 
POKE 30862199 : POKE 
30863,165 : MODE (1) : X-USR(I 
DISEGNO 3 
POKE 30862177 : POKE 








30863,157 : MODE (1) : X-USR(I 
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360 
365 
370 
380 
390 
400 
405 
410 


430 

440 

450 

460 

500 

510 

220 

1200 
1210 
1250 
1260 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1365 
1370 
1380 
1390 
1400 
1405 
1410 
1420 
1430 
1435 


71440 


1450 
1460 
1500 
1510 
1520 
2200 
2210 
2250 
2260 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2365 
2370 
2380 
2390 
2400 
2405 
2410 
2420 
2430 
2435 
2440 
2450 
2460 
2500 
2510 
2520 
2550 


IFG=82ANDE=1ANDDC=0THENDS=DS+1:£=0:GOTOZO 
IFGCs82ANDDC-1THENGOTO2550 
IFK-z1THENCOLORZ2;:SET((X,Y) : FORT-OTOS4NEXT 
IFPEEK(26877)=253THENB=1:;SOUND9, 1 : COLORK: SET (X,Y) : GOSUBA20 
IFPEER(26875)2223ANDB-1THENSOUND10,1:GOSURS500 

ІРРЕЕК (20877 ) =247АМОВ= 1 ТНЕМ2550 
COLORK:SET(X,Y) 
GOTO250 
рАТА17,43,174,33,0,112,26,254,201,202,43 
DATAVE Z Шо SV УЫЗ (UE Urn 
FORM=20968T020951STEF-1:READO:POKE-M,0:NEXT:J%=0 
FORA%=28672T030719:;J%=J%--1:!POKE-(20950+IJ%),FEEK(A%) : NEXT 
POKE-18901,201:POKE-18900.201: RESTORE: SOUND10,4: RETURN 
MODE(€1):SQUND10,4 
FOKE30862,24:POKE30863,174: XSUSR(X) SOUND20,3 
RETURN 

A20:Yz0:MODE(CI):K-Z: IFSFX-OTHEN1250 
FORS€4-2286572TO30719 | POKES% , SPX : NEXT: POKE30873,0 

С=РЕЕК (30873) 

IFO? 48ANDC <53THENK=0-48!S0UND30,2:F0KE30873,0 

Р=РЕЕК (26863) 

IFF=223ANDX: ОТНЕМХ=Х- 1 

IFP=247ANDX<127THENKX=X+1 

IFP=239ANDY “6 3THENY=Y+1 

IFP=253ANDY>OTHENY=Y-1 

RESET(X,Y) 

IFC=78ANDV=1ANDDC=0THENDS=DS+1!Z=0!GOTO20 
IFC=7BANDDC=1THENGOTO?550 2 
IFK=1THENCOLORZ:!SET(X,Y):FORT=0TOS:NEXT 
IFPEEK(26877)=259THENV=1:;S0QUND9, 1  COLORK: SET(X, Y) : GOSUB1420 
IFPEEK(26875)-223ANDV-1THENSQUND10.1:GOSUB1500 
IFPEEK(26877)=247ANDV=1THEN2550 

COLORK:SET(X,Y) 

GOTO1250 

DATA17,217,165,33,0,112,26,254,201,202,216 
DATAL73, 119, 19,835, 1952052160 

FORM=1T018:!READO: NEXT 
FORM-23097TO23080STEP-1:READO:PORE-M,Q:NEXT: 7%-0 
FORA%X=28672T030719:J%=/J%-1!POKE-(23080+J%),FEEK(A%) : NEXT 
PORE-21031,201:POKE-21030,201:RESTORE: SOUND10,4: RETURN 
MODE ( 1) : SOUNI)10,4 
POKE30862,199;POKE30863,165:XsUSR(X) : SOUND30,3 

RETURN 

Х=0:Ү=0: МОПЕ(1) :К=5; IFSFXZOTHEN2250 
FORS4-228672TO30719: POKES% , SF% : NEXT : POKE30873,0 

С=РЕЕК (30873) 

IFC®48ANDC <53ЗТНЕМК=0- 48: S0UND30,2: POKE30873,0 
P=PEEK(26863) 

IFP=223ANDX> ОТНЕМХ=Х-1 

IFP-247ANDXZ127THENX-X*1 

IFF=239ANDY “6 3THENY=Y+1 

IFP=253ANDY: OTHENY-Y-1 

RESET(X,Y) 

IFG=82ANDH=1ANDDO=0ANDDS 3THENDS=DS+1:£=0:GOTO20 
IFC=82ANDDG=1THENGOTO2550 
IFK=1THENCOLOR2 : SET (X,Y):FORT=0TO5:NEXT 

ІРРЕЕК (26877) =253ТНЕМН= 1 : SOUND? ,1:COLORK:SET(X,Y):GOSUB2420 
ІРРЕЕК (26875) =2 2 3ANDH= 1 THENSOUND10, 1 : 605082500 

ІРРЕЕК (26877) =247АМОН= 1 ТНЕМ2550 

СОЦОКК : SET( X,Y) 

GOTO2250 

рРАТА17,195:137,38,0,112:26,254,201,209,195 

е Ша ааа аа gos seem 

ҒОНКМ-1Т036:БЕАрО:МЕХТ 
FORM=25167T025150STEP-1:READO:POKE-M,0:NEXT:J%=0 
FORA#=28672T030719:J%=J%-1:POKE-(25150+J%),FPEEK(A%) : NEXT 
PORE-23101,201:FOKE-23100,201: RESTORE: SOUND10,4: RETURN 
MODE(1):!SOUNDIO,4 
POKE30862,177:F0KE30863,157!X=USR(X):!SOUND30,8 

RETURN 

CLS:!DC=1:P0ORE30873,0 


che in questo caso è 
4.33333 indicando soltanto 
cinque decimali. 

Allo stesso Modo il valore di 
1 MILIARDO assegnato alla 
variabile B sarà scritto con 
la NOTAZIONE ESPONEN- 
ZIALE, cioè sarà scritto 1 E 9 
(1 volta 10 ELEVATO ALLA 9 
cioè 1 MILIARDO). 

Se aggiungiamo la se- 
guente riga: 

10 POKE 30977,8 : POKE 
30978,8 potremo verificare 
che il contenuto della varia- 
bile A conserva un grandis- 
simo numero di decimali,e 
che il contenuto della varia- 
bile B verrà scritto in modo 
normale, con tutti gli ZERI. 
Questo perché le funzioni 
POKE della riga 10 gli han- 
no segnalato che tutte le 
variabili il cui nome inizia 
per A o per B sono variabili 
in DOPPIA PRECISIONE. 

Il punto di partenza é la LO- 
CAZIONE 30977 che sta ad 
indicare le variabili il cui 
NOME inizia con la lettera 
A. 

La locazione 30978 indica 
le variabili il cui nome inizia 
per B, e cosi di seguito: 
30979 per la lettera С... etc. 
Il valore 8 indicato dopo la 
virgola precisa che si tratta 
di variabili in doppia preci- 
sione. 

E possibile definire anche 
altri tipi di variabili, secondo 
i seguenti valori: 

4= SINGOLA PRECISIONE 
8 = DOPPIA PRECISIONE 
2 = INTERO 


Naturalmente il caso che 
interessa di più riguarda le 
variabili in DOPPIA PRECI- 
SIONE, in quanto gli altri tipi 
possono essere comoda- 
mente definiti attraverso le 


regole del BASIC. C] 
HARD COPY della pagina 
grafica 


Continuiamo a scoprire i 
segreti dei computer LA- 
SER. 

La breve routine che vi pro- 
poniamo permette di stam- 
pare su carta i grafici o i di- 
segni che abbiamo realiz- 
zato in alta risoluzione. Il 
tutto avviene con semplici- 
tà, ed anche abbastanza 
velocemente. 

Come dobbiamo operare 
per sfruttare questa ecce- 
zionale caratteristica dei 
computer LASER 110, 210, 
310? 

E sufficiente inserire nel no- 
stro programma principale 
la routine che vi alleghia- 
mo, e per stampare il con- 
tenuto della pagina grafica, 
basta soltanto farla esegui- 
rell! 

Per comprendere meglio 
facciamo un esempio con 
un piccolo programma che 
disegna in alta risoluzione 
(VEDI LISTATO 1). 

Se ora aggiungiamo le ri- 
ghe del LISTATO 2 potre- 
mo stampare su carta il 
contenuto della pagina 
grafica in alta risoluzione. 


10 REM DISEGNO CON STAMPA SU PLOTTER 


15 REM RUOTINE DISEGNO 
20 MODE(1) 


30 FOR X=50 TO 100:SET (X,10) 


40 SET (X,40):SET (X4120.30) 


50 SET (X+20,60) NEXT 


SO EON MELO EGE HOME (50 Y 





ЗЕТ LOO EVO ВЕТО ОУ) 


80 SET (Т0, Ү+20) :МЕХТ:Ү=95 
100 FOR X-50 TO 7O:Y-Y41 
TEL SPOT CSS TORO ENTM EES (БҮ?) 
120 SET (Х,Ү+30) 

130 SET (X+50,Y+30) !NEXT 
300 GOTO300 


Naturalmente é necessario 
inserire le righe nel modo 
piü opportuno, rinumeran- 
dole e richiamando la routi- 
ne con il comando GOSUB. 
IL LISTATO 3 é il risultato 
dell'unione tra i due altri li- 
stati. 


HARD COPY 


LPRINTCHR$(18):"S0" 
X-XRASILPRINT"M,":-X 


Potrete usare la routine per 
l'HARD COPY in qualsiasi 
vostro programma. L'unica 
cosa che dovete ricordare 
è che la stampa su carta è 
possibile soltanto se avete 
collegato il PRINTER PLOT- 
TER al computer. O 


FORYZOTO63;K-POINT(127-L;Y) 
IFK-1THENLPRINT"Q";O:LPRINT"P ":GOTOB 


1 
с) 
4 
б LPRINT"G":K 

6 LPRINT"@":0:LPRINT"PO" 
7 МЕХТ =н 

8 IF(X/4)«128THEN GOTO2 
9 


LPRINTCHR$(18):"S1";LPRINTCHRE$(17) 


COMMENTI 


IZINERCICSTABRTOPERCOERISOTDER 


LINEA 2-STEP PER GARTA 


LINEA 3-LEGGE IL COLORE DEL 


PUNTINO 


LINEA 4-ESCLUDE II. COLORE DI SFONDO 


(IN QUESTO CASO IL 


VERDE COD.1) 


LINEA 5-ІММЕТТЕ NUOVO COLORE 


LINEA &-DISEGNA IL PUNTINO 


LINEA 7-PFROSSIMO PUNTINO 


LINEA 8-CONTROLLO FINE DISEGNO 


LINEA 9-RESET FER FLOTTER 


10 REM DISEGNO CON STAMPA SU PLOTTER 


15 REM RUOTINE DISEGNO 
20 МОПЕ (1) 


30 FOR Х-50 TO 100:5ЕТ (Х,10) 


40 SET (X,40) SET (X+20,30) 


50 БЕТ (X+20,60) NEXT 


60 FOR Y=10 TO 40:SET (50,Ү) 
U SEL GLIO ONE SEZ) 


80 SET (70,Y+20) NEXT:Y=9 


100 FOR X=50 TO 70:Y=Y+1 
LL SEDR IO 
120 Т CK E 

130 SET (K+50,Y+30) (NEXT 
200 GOSUB 10000 

300 GC 










E Dm SY») 


10000 REM ROUTINE FER PLOTTER 


10010 LPRINT GHR$(18):"S0" 
10020 XeSX*-4:LPERINT "M,'"?-X 


10030 FOR Ys0 ТО 63:К-БОТМТ (1275015 vo. 
10040 IF K=1 THEN LPRINT "Q":O:;LPRINT "P '";GOTO 10080 


10050 LPRINT "G":K 


10060 LPRINT "Q":O:LPRINT 


10070 NEXT :L=L+1 


"ро" 


10080 ТЕ (X/4)<128 THEN 10020 
10090 LPRINT CHR$(18):"S1":LPRINT ОНБ%(17) 


10100 RETURN 





DI E. NOSEDA E M. DALL’ORTO 


Text editor 


(elaborazione testi) 


Per LASER 310 


Il computer è un utilissimo 
compagno di lavoro e di 
studio, e la sua utilità è an- 
cora più evidente quanto 
permette, in modo sempli- 
ce di realizzare dei testi: let- 
tere, fatture, o altro. 
Esistono costosissimi pro- 
grammi che permettono di 
elaborare i testi. Si tratta di 
programmi molto sofistica- 
ti, e spesso anche difficili da 
usare per chi è alle prime 
armi. 

Un computer come il LA- 
SER 810 invece ha una di- 
mensione più “UMANA” e 
per questo offre infinite 
possibilità al fortunato che 
possiede questo HOME- 
COMPUTER. 

E necessario approfondire 
la conoscenza con il pro- 
prio computer per usarlo al 
meglio!!! 

In effetti il LASER 310 һа 
moltissime qualità nasco- 
ste. 

Ora vedremo come è pos- 
sibile creare un testo con il 
LASER 310, con la possibili- 
tà di correggerlo o modifi- 
carlo a ns. piacere, ed infine 
salvarlo su nastro, e natu- 
ralmente stamparlo. 

E il piü semplice e veloce 
TEXT EDITOR realizzabile, 
in quanto sfrutta l'EDITOR 
dei programmi BASIC resi- 
dente su R.O.M. 


La creazione del testo 

Il procedimento da seguire 
è veramente semplice: e 
sufficiente scrivere un testo 
mettendo all'inizio del testo 
stesso il numero di riga, co- 
me se fosse un programma 
BASIC. 


ESEMPIO: . 
10 QUESTA É UNA PROVA 
PER VEDERE COME FUN- 
ZIONA 

20 UN SEMPLICISSIMO 
TEXT EDITOR 

30 PER IL LASER 310 

40 SFRUTTANDO L'DI- 
TOR DEL BASIC 


Il testo dell'esempio è stato 
composto come se fosse 
un programma BASIC, con 
la numerazione delle righe. 
Se vogliamo LISTARE il te- 
sto sul video possiamo 
usare il comando LIST del 
BASIC, come al solito. 


La stampa del testo 

Per stampare possiamo 
usare il comando LIST, e SE 
ABBIAMO COLLEGATO LA 
STAMPANTE vedremo il 
nostro testo stampato ma... 


ma.. direte voi, facendo 
così vengono stampati an- 
che i numeri di riga che ro- 
vinano l'estetica del testo!!! 
Certo, e per questo vi rive- 


liamo un piccolo segreto. 
Prima di stampare inserite 
questa riga di programma: 
1 POKE 30900,0: LLIST 2- 
Con questo semplice truc- 
co e sufficiente dare il co- 
mando RUN per vedere 
che il nostro LASER 310 
stampa il nostro testo sen- 
za i numeri delle righe, cosi 
come serviva a noi. 


Archiviazione del testo 

| comandi di sistema CSA- 
VE, VERIFY e CLOAD pos- 
Sono essere usati per sal- 
vare, verificare, o rileggere il 
testo che abbiamo compo- 
sto. Potremo realizzare un 
archivio dei nostri testi, e 
chi va a scuola potrà usare 
questo sistema per tenere 
un archivio dei componi- 
menti, riassunti, o altre 
esercitazioni. 

Ed ora ... A VOI! Buon diver- 
timento, e fateci sapere i ri- 
sultati che сопѕедиігеїе 
usando questo comodissi- 
mo e semplice editore di 
testo. 


Auto RUN - LASER 500 
Il computer LASER 500 ha 
già numerosi utenti, per cui 
proponiamo ai fedeli lettori 
che possiedono il LASER 
500 questo metodo che 
consente di avere la par- 
tenza automatica dei pro- 
grammi. 


Dopo aver terminato il vo- 
stro programma BASIC sal- 
vatelo su cassetta con il co- 
mando CSAVE. 

Questo per non avere sor- 
prese spiacevoli. 

Poi, con il programma in 
memoria digitate il coman- 
do MON (più tasto RE- 
TURN) per entrare in MONI- 
TOR di memoria. 

Una volta entrati in monitor 
digitate quanto segue: 
8989 21 F7 85 36 00 23 36 
41 C9 (più tasto RETURN) 
83E9,83EA,M (più tasto RE- 
TURN) 

Il computer visualizza due 
dati (ESEMPIO: DF 89). 


Trucchi regole e consigli 


Invertire questi due numeri 
per sapere l'indirizzo di me- 
moria in cui termina il pro- 
gramma (nel nostro esem- 
pio DF 89 indica che il pro- 
gramma termina all'indiriz- 
zo esadecimale 89DF). 

A questo punto é possibile 
salvare il programma, indi- 
cando come indirizzo di 
partenza la locazione 8989, 
e come locazione finale 
quella che abbiamo appe- 
na ricavato (nel ns. esem- 
pio 89DF). 

Per salvare il programma 
procedere nel seguente 
modo: 

Preparare una cassetta nel 
registratore, posizionare il 
nastro, e premere i tasti RE- 
CORD e PLAY sul registra- 
tore. 

Digitare: 8989,89DF,W" no- 
me programma". 

Appena tutto é a posto pre- 
mere il tasto RETURN ed il 
programma sarà salvato. 
Un programma salvato in 
questo modo può essere 
caricato con il comando 
CLOAD, e partirà immedia- 
tamente appena terminato 
il caricamento. O 





Variabili in doppia preci- 
sione 

I computer LASER 110/210/ 
310 permettono di usare le 
variabili con doppia preci- 
sione con un sistema molto 
semplice. 

Precisiamo che il termine 
DOPPIA PRECISIONE sta 
ad indicare che il numero di 
cifre rappresentate da un 
numero é maggiore. 

Ad esempio: se eseguiamo 
le seguenti righe di pro- 
gramma: 

20 LET A=13/3 

30 PRINT A 

40 LET B=1000000000 

50 PRINT B 

Il computer eseguirà la divi- 
sione ed assumerà il risul- 
tato alla variabile reale che 
ha il nome A. 

Per questo eseguendo la ri- 
ga 30 scriverà il CONTE- 
NUTO della VARIABILE A 


Naturalmente le istruzioni di cui 
Sopra dovranno essere opportu- 
namente inserite in una riga del 
vostro programma BASIC, nel 
punto in cui ritenete necessario 
visualizzare il disegno. 

Esempio: se desiderate soltanto 
verificare quanto detto sopra, do- 
po aver richiamato il disegno 1 
(realizzato precedentemente e 
salvato su cassetta o disco), pote- 
te digitare questo brevissimo pro- 
gramma BASIC che vi permetterà 
di vedere il vostro disegno sul vi- 
deo. 

10 POKE 30862,24 : POKE 
30863,174 

20 MODE (1): X-USR(l) 

30 GOTO 30 


Per interrompere premere CTRL 
+ BREAK (la riga 30 serve solo 
per far rimanere il computerin pa- 
gina grafica. 

Potete fare la stessa prova per i di- 
segni 2 e 3, usando le istruzioni 
POKE indicate sopra, relative a tali 
disegni. 

Ci auguriamo di sentire al più pre- 
sto le vostre soluzioni, e ne appro- 
fittiamo per ricordarvi che TUTTI i 
programmi presentati sulla rivista 
sono disponibili presso la nostra 
redazioni già registrati sucassetta 
o FLOPPY DISK, e possono esse- 
re acquistati, da chi è troppo svo- 


gliato, o non ha il tempo di digita- 
O 


re i listati più lunghi. 











2560 
2570 
2580 
2600 
2610 
2620 
2625 
2630 
2640 
2650 
2655 
2657 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
3000 
3010 
3020 
3030 
3035 
3040 
3050 
3090 
3095 
3097 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3500 
3520 
3530 
3535 
3540 
3550 
3590 
3595 
3597 
3600 
3610 
3620 
3630 
3640 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4110 
4120 
4130 
4140 
4150 
4170 


IFSA=1THENA$="NASTRO"ELSEA$="DISCO" 


PRINT"PRIMA DI SALVARE IL PROGRAMMA" 

PRINT"SU ":A$;" FATE UN CONTROLLO" :;PRINT 

FRINT" 1 =CTRL DISEGNO 1" 

IFDS: 1THENPRINT" 2 =CTRL DISEGNO 2" 
IFDS> 2THENPRINT" 3 =CTRL DISEGNO З" 
PRINT i 

PRINT" 4 =CORREZIONI DIS. 1" 
IFDS*1THENPRINT" 5 =CORREZIONI DIS. 2" 
IFDS>2THENPRINT" 6 -GORREZIONI DIS. 3" 
PRINT" 7 SAVE " :A$ (PRINT 

PRINT" R =RETURN TABELLA" 

FOKE30873,0 

Q=PEEK(30873) 

IFQ-49THENGOSUBSO00: GOTO?2750 
IFQ=50ANDDS> 1 THENGOSUB1500!GOTO2750 
IFQ-51ANDDS?2THENGOSUBZ2S500 :GOTO2750 
IFQ=52THENGOSUBS00:C=0:K=Z:G0T0300 
IFQ-53ANDDS?*1THENGOSURB1500:020:K-2Z:GOTO1300 
IFQ-82ANDDS? 2THENGOSUB2500:C20:K-2Z:GOTO2300 
IFQ=SSTHENCLS : SOUND30,3:GOTO3000 
IFINKEY$-"R'THEN2550 

GOTO2660 

IFSA=2THEN3500 

OLS:FRINT@130, "TRASFERIMENTO FILE SU ":A$:PRINT:FRINT 
PRINT" NOME FILE МАХ 8 GCARATTERI";PRINT:;FRINT 
PRINT"  "::INPUTF$:NF-LEN(F$) 

IFNF> 8THENNF=8 

FORG=1TONF:F=ASC(MID$(F$,G,1)) 
POKE-(29499-G) ,P: NEXT 

PRINT"INTRODURRE IL ":A$ 

FRINT"E PREMERE RETURN" 

ІҒРЕЕК (268195) =>251іТНЕМ3097 
SOUND30,2;PRINT"ATTENDERE PREGO" 
IFDS=1THENM1=20;M2=174 

IFDS=2THENM1=190:M2=165 

IFDS-S3THENM1-169;M2-157 
РОКЕЗ0884,Мі!РОКЕЗ0885,М2!С5АУЕ"........ ы 
РОКЕЗ0884,233:РОКЕЗОВВ5,122 
CLS:PRINT"PROGRAMMA SALVATO SU NASTRO" 
FORQGA-0TO200:NEXT:PRINT"END" : PRINT"PROGRAM" 
FORG-1TO8:POKE-(29499-G), 46: NEXT: GOTO2600 
CLS:PRINTG130,"TRASFERIMENTO FILE SU ":A$:PRINT:PRINT 
PRINT" МОМЕ FILE МАХ В CARATTERI":PRINT:PRINT 
PRINT"  ":;INPUTF$:NF-LEN(F$) 

IFNF? 8THENNF-8 

FORG=1TONF:F=ASC(MID$(F$,G,1)) 
POKE-(29075-G),P:NEXT 

PRINT"INTRODURRE IL ":A$ 

PRINT"E PREMERE RETURN" 
IFPEEK(26815) 42 251THEN3597 
SOUND30,2:PRINT"ATTENDERE PREGO" 

ВСАУЕМ,,2..... ",9DAA,B6CB8 

CLS:PRINT"PROGRAMMA SALVATO SU DISCO " 
FORGA-0TO200:NEXT:FRINT"END" : PRINT"PROGRAM" 
FORG-1TO8:POKE-(29075-G),46: NEXT: GOTO2600 
IFPEEK(-189200)2201THENDS-1 
IFPEER(-21030)-2201THENDS-2 
IFPEEK(-23100)=201THENDS=3 

IF DS=0THEN:DS=1:G0T015 

CLS:PRINT"IN MEMORIA ESISTONO" :DS 
PRINT"DISEGNI. VUOI MODIFICARLI ?":PRINT:PRINT!PRINT 
INFUT" (S/N)":U$ : PRINT 
IFRIGHT$(U$,1)-"N"THENDS-1:S0UND10.1:GOTO15 
PRINT"VUOI SALVARE SU DISCO / NASTRO":PRINT 
PRINT" D =DISCO" 

PRINT" T =NASTRO" 
IFPFEER(26877)2247THENSA-2;:K-1:Z21:A$-" "DISCO" : GOTO2550 
IFFEEK(26878)2254THENSA-1:K-1;Z-1:A$-"NASTRO" : GOTO25530 
GOTO4140 
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ll Laser nascosto 


Laser 500 : Testo in grafica 


HJ 33S y eS O E 
15 REM LASER 500. TESTO IN GRAFICA 
20 REM eme с 

22 REM 

30 REM -- 
33 REM ! 
35 REM ! 
37 REM ! X= ASSE ORIZZONTALE 
39 REM ! Y= ASSE VERTICALE 
40 REM ! C- 
42 REM ! F= DIMENSIONE CARATTERI 
44 REM !MD= VAL.MAX.ASSE Х 

46 REM ! 

47 REM !NB:IL VALORE (X,Y) 

48 REM ! VIENE CALCOLATO IN 

AI REMI, BASE AL MODO GRAFICO 

50 REM --------------------------- 
55 REM 

1007 REM “--------------- XS ILC Cs 
102 REM ESEMPIO: 
1O4 REN Gm 

106 REM TESTO ORIZZONTALE 

1000 CLEAR 1000:GOSUB 40010 

1010 GR 3:X=0:Y=10:C=15:F=0!MD=79 

1020 A$-"ABCDEFGHILMNOPGRSTUVZK JY1234567890--24) CK&X $4! 2 /2^ 11" 
1030 GOSUB 40050 

1900 REM TESTO VERTICALE 

2000 X=90{Y=10:C=15:F=0:MD=100 

2010 A$="ABCDEFGH" 

2020 GOSUB 40050 

3000 REM TESTO CON CARATTERI GRANDI 

3010 X=0:Y=100:C=15:F=2:MD=159 

3020 A$-"ABCDEFGHILMNOFQRSTUVZ12345578904» ()?" 

3030 GOSUB 40050:SOUND 10,1 

4000 GOTO 4000 

4001 REM 

40000 REM INIZIO PROGRAMMA 

40010 DIM CAR$(90) 

40020 FOR Z=32 TO 90:READ A$ 

40030 IF A$="STOP"THEN RETURN 

40040 READ DA$:CAR$(Z)-DA$:NEXT:RETURN 


TABELLA VARIABILI d 


COLORE TESTO 






Segue da pag. 16 


1530 IFP=0ANDINKEY$="A"THENS1=PEEK(-25590)+30110:P=1 

1540 IFP=1THENFi=P1+256!FOKES1-P1,64:FOKES1-P1+256,0 

1545 IFP1=1024ANDPEEK(S1-1280)>0ANDPEEK(S1-1120)=0THENGOSUB4000 
1550 ІЕРІ-1024ТНЕМР- KES1-P1,0;P1-0 

1560 IFZ:94ANDINKEY$- 
1570 IFS2»30132THENFO 
1580 IFS2230133THENS2- 
1590. IF82» 30132ANDFEEK (82*224) > OTHENGOTO4500 
1600 NEXT 

2000 FORA=121T0101STEP-4; 
2020 POKE-25650,fA-2;POKE 
2025 IFI(S*1)-2ATHENFOKER , 2 
2030 POKEL1;.C1;POKEL2,02 
2032 IFS2»30132THENFORES2,0:982-290864Z 

2084 ІҒ82<3013ЗТНЕМ52-52%96:РОКЕ82,105:РОКЕ52-96,0 

2036 IFS2»30132ANDPEEK (52+224 ) > OTHENGOTO4500 

2040 ІР 70ANDINKEY$-"M"THENZ-Z-1:POKE-25590,Z:X-USR(I) 

2050 IFZZ94ANDINKEY$-","THENZ-Z*1:PFOKE-25590,Z:XsUSR(I) 

2070 IFP=0ANDINKEY$="A"THENS1=PEEK(-25590)+30110:P=1 

2080 IFP-1THENP1-F1*256:POKES1-P1,64:POKES1-F14*255,0 

2085 IFP1-1024ANDPEER (51-1280) > 0ANDPEEK (81-1120) -0THENGOSUR4000 
2090 IFPi=1024THENP=0!FOKESi-P1,0;F1=0 

2100 NEXT:POKEL1,C1:FOKEL2,C2 

3000 FORT=0T03 

3010 IFZ?7OANDINKEY$-"M"THENZ-Z-1:POKE-25590,Z:X- 
3020 IFZ£94ANDINKEY$-","THENZ-Z*1:POKE-25590,Z; X-USR(I) 
3030 IFP-OANDINKEY$-"A"THENS1-PEEK(-25590)430110: 
3040 IFP-1THENP1-P1-4*256:POKES1-P1,64:POKES1-P1*256,0 

3045 IFP1-1024ANDPFEEK (81-1280) > OANDPEEK (81-1120) -0THENGOSUBA4000 
3050 IFP1-1024THENP-0 :POKES1-P1,0:P1-0 е 

3055 IFP1=1024ANDPEEK(S1-1280)>O0ANDPEEK(S1-1120)=0THENGOSUB4000 
3060 IF 301З2ТНЕМРОКЕ52,0!52-29086%2 

3070 ІК 30199THENS2?=S2+96:FOKES2,150:FOKES2-96,0 

3080 IF O0132ANDPEEK(824224)»0THENGOTO4500 

3090 МЕХТ:60Т01010 
4000 POKESI-P1,0 
4010 Рі=0:Р=0 

4015. IFFEEK(S1-1280) 








8-5-1:РОКЕІ.1,Мі:РОКЕІ2,М2 
97,8 
X=USR(I):ELSEPOKEB,201:X=USR(I) 























TYTHENSOUNDi , 1 ; RETURN 
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40050 
40060 
40070 
40080 
40090 
40100 
40110 
40120 
40130 
40140 
40150 
40160 
40170 
40180 
40220 
40230 
40240 
40250 
40260 
40270 
40280 
40290 
40300 
40310 
40320 
40330 
40340 
40350 
40360 
40370 
40380 
40390 
40400 
40410 
40420 
40430 
40440 
40450 
40460 
40470 
40480 


4017 
4020 
4030 
4040 
4042 
4045 
4050 
4060 
4500 
4510 
4550 
4560 
4570 
4580 
4590 
4600 
4610 
4520 
4630 
4640 
4550 
4655 
4660 
4670 
5000 
5010 
5020 
5030 
5040 
5050 
5500 
5510 
5520 
5530 
5540 
6000 
5010 


X1-X:Y1-Y:IF F=0 THEN F-1 

FOR M-1 TO LEN(A$) 

T$-MID$(A$,M,1) 

GH$=CAR$(ASC(T$)) 

FOR N-1 TO LEN(GH$) STEP 4 

IF MID$(GH$,N,1)="/"THEN X-X*(BXF):GOTO 40160 
ZZ=VAL(MID$(GH$,N,1)):YY=VAL(MID$(GH$,N+1,1)) 
JCS-X*ZZXF:JO6-Y-YYXF 


JO7-X*VAL(MID$ (GH$ ,N+2,1))%F:JC8=Y-VAL(MID$(GH$,N+3,1))XF 
MOVE (JC5,JC6):DRAW (JO7,JC8):COLOR C,0,0 


NEXT 


N 


IF X*8XF»MD THEN X=X1:Y=Y+10%F 
NEXT M:RETURN :NEXT N:NEXT M:RETURN 
RETURN 


DATA TESTOX,/,LASER500,31313337/, INGRAF,25274547/,# 

DATA 1353155521274147/,$,124242532444152626563197/ 

DATA %,17271626125641514252/,&,121321315331155116273536/,‘ 

DATA 3536/,(,131513311537/ 

DATA ),315353555537/,*,125616523137/,*,32361454/, COMMA 

DATA 21323233/ 

DATA -,1454/,.,31423241/,/,1256/,0,12162141525627471256/ 

DATA 1,214131372637/,2,115112334444555647271627/,3 

DATA 122121415253345617574453/,4,414713531447/ 

DATA 5,122121415254154515171757/,6,214112151444525315373757/ 
DATA 7,212223561757/,8,2141244427471213151652535556/ 

DATA 9,113131535355245415152747/,.,33333535/,:,333232333533/ 
DATA <,14471441/ 

DATA =,13531555/,),21545427/,?,16272747343331313456/,APE./ 

DATA A,11155155135315373755/,B,111717471444114152535556/ 

DATA C,12162747475621414152/,D,1117114152561747/ 

DATA E,1117115114441757/,F,111714441757/,G,12162757215151535343/ 
DATA Н,111714545157/ 

DATA 1,214131372747/,1,122121415257/,К,111713572451/,1.,11171151/ 
DATA M,11171735353435575751/,N,111751571652/,0,1216274756522141/ 
DATA P,1117144417475556/ 

DATA Q,12162747565321313351/,R,11171747565514442451/ 

DATA S,1221214152532444151627474756/,T,17573137/ 

DATA U,111721415157/,V,1317535713313153/,W,11175157113333513334/ 
DATA X,111217165152575612561652/ 

DATA Y,16175657163434563134/,2,175712561151/ 

DATA 5ТОР 

SOUND30, 1 

СР-((2-70)/4)%1 

І(ОР)-0 

FORF=0T08:IFI(F)>OTHENRETURN 


NEXT i KL=KL+1 

IFKL=2THENGOT05000 
FORF=25698T025606STEP-1:READL:POKE-F,L:NEXT:!TY=16 
5=0:GOT01005 

FORA=0T010:;SOUNDRND (31), 1 : NEXT 
POKEL1,M1:POKEL2,M2:POKEB, 33 

FORA-101TO121STEF4 

POKE-25650,A:POKE-25697,A-2 
X=USR(I):SOUNDRND(31),1 
NEXT:FORJ-0TO999;NEXT; CLS ; MODE (0) 
FRINT:PRINT:FRINT 

PRINT" 
PRINT" 
PRINT" 
PRINT" 


PRINT" 
FRINT"GIOCHI ANCORA " 


U$=INKEY$ : IFU$ 


PERDI OGNI SPERANZA  ":PRINT 
DEBOLE UMANO":PRINT 
ABBIAMO DISTRUTTO" : PRINT 
LA TUA ASTRONAVE" : PRINT 
FINE":PRINT: PRINT 


"S"ANDU$ "N"THEN4655 


IFLEFT$(U$,1)-"S"THENSOUND10.1:GCLEAR10000:GOTOS00 
CLS; END 

FORA=0T01 000 NEXT : CLS : MODE ( 0 ) ; POKE30776,255 
PRINT"MESSAGGIO FER IL COMANDANTE" : PRINT 


FRINT"DELL ' ASTRONAVE 
PRINT"MISSIONE COMPIUTA 


LASER 310":PRINT 
STOP" {PRINT 


IFRND(2)-1THENSS00 

PRINT:PRINT:GOTOA650 

PRINT"A T TENZION E":PRINT 

PRINT"ALTRI ALIENI SONO ALL'ATTACCO ":PRINT:PRINT 


PRINT 


TI AGURO BUONA FORTUNA" 


FORN-0TOS;SOUND20.3:80UND25.3:NEXT:FOR N=0 TO 1000:МЕХТ 
CLEAR10000:GOTOS00 

FORG-32570TO32800: INFUTI 

PRINTPEEK(G),G:;NEXT 


0-бсх> Posta e telefono . .......... rozo 


Ventimiglia Ivano, di Gal- 
larate, aspettava da noi 
una risposta in merito alle 
capacità grafiche del Laser 
310, soprattutto sulla possi- 
bilità o meno di aumentare 
la matrice in modo da otte- 
nere 256x192 pixels. Non 
possiamo fare altro che 
confermare i dubbi sul nu- 
mero dei pixels utilizzabili 
(128х64) e sui colori (4 a 4 
in grafica). L'alternativa esi- 
ste: sostituire il Laser 310 
con il 500: si avranno allora 
a disposizione diverse so- 
luzioni grafiche (a partire da 
160x96 fino a 640x192) e 
parecchi colori (fino a 16). 
Vedere a pag. 4 il servizio. 














Gabriella Orzetti di Lima- 
na (BL) (speriamo di aver 
interpretato correttamente 
il cognome) desidera tutte 
le informazioni possibili sul- 
la Light Pen recentemente 
acquistata in quanto le 
istruzioni sono in una lin- 
gua straniera (tedesco per 
la precisione). Ovvieremo 
all''nconveniente (per la ve- 
rità indipendente dalla no- 
stra volontà) fornendo nel 
prossimo numero della rivi- 
sta ad uso e consumo di 
tutti i possessori della Light 
Pen, le informazioni per il 
corretto uso di questo ac- 
cessorio. O 


Umberto Zimbalatti di Lo- 
cri ci chiede se è possibile 
spiegare le segnalazioni di 
errore del DISK DRIVE. 
Inoltre desidera sapere se 
esistono pubblicazioni con 
programmi per il LASER 
310. 

Infine vorrebbe conoscere 
il funzionamento dei JOY- 
STICK. 

Sono lieto di rispondere al- 
le sue cortesi richieste, spe- 
rando di essere esauriente 
e chiaro. 

1) Le segnalazioni di errore 
più frequenti del DOS (Disk 
Operative Sistem) del LA- 
SER 310 sono le seguenti: 


FILE ALREADY EXISTS 
(pronuncia: FAIL OLREDI 
ECSISTS) avvisa che il FILE 
(programma o dati) che si 
cerca di scrivere sul disco è 
già esistente con quel no- 


me. 
FILE NOT FOUND (pronun- 
cia: FAIL NOT FAUND) l'ar- 
chivio ricercato sul disco 
non esiste con il nome che 
è stato indicato. 

DISK FULL (pronuncia: 
DISK FULL) il disco è pieno, 
per cui non è possibile scri- 
vere altri dati. 

DISK I/O ERROR (pronun- 
cia: DISK AI O ERRO) il di- 
sco è rovinato a causa di un 
uso scorretto (piegature, di- 
tate, graffi etc). TUTTE LE 
INFORMAZIONI CONTE- 
NUTE SUL DISCO SONO 
PERSE. Per controllo: verifi- 
care se il disco è inserito 
correttamente nel DRIVE, 
togliendolo, e rimettendolo 
a posto. Controllare anche 
che la levetta di chiusura 
funzioni bene. 

Provare con un altro DRIVE, 
per vedere se si verifica an- 
cora l'errore. Se l'errore esi- 
ste NON c’è più niente da 
fare! 

SYNTAX ERROR (pronun- 
cia: SINTACS ERRO) que- 
sto errore indica che un 
comando è stato scritto in 
modo errato. 

2) Le riviste che pubblicano 


listati di programmi che 
possono funzionare sui 
computers LASER 110, 210, 
310, e 500, sono moltissi- 
me. In particolare tutti i pro- 
grammi di tipo generico, 
scritti in BASIC, che adot- 
tano il linguaggio BASIC 
MICROSOFT. STANDARD 
possono essere adattati 
facilmente ai computer LA- 
SER, tranne quelli che pre- 
vedano le funzioni PEEK e 
POKE, che vanno a modifi- 
care le locazioni di memo- 


ria usate dal Sistema 
Operativo. 
Questi programmi sono 


scritti per computers che 
hanno un linguaggio non 
standard, e con pochissimi 
comandi BASIC, come ad 
esempio il COMMODORE 
64 ed il VIC 20. 

In ogni caso è possibile stu- 
diare il funzionamento di 
tali programmi, e riprodurlo 
con i computers LASER. 
La nostra rivista LASER 
COMPUTER CLUB è intera- 
mente dedicata ai compu- 
ter LASER, ed è disponibile 
con un comodo abbona- 
mento. 

3) І JOYSTICK (pronuncia 
GIOI STIK) sono periferiche 
di INPUT, e permettono di 
trasmettere un segnale alla 
memoria. 

In un programma e possibi- 
le leggere tale segnale ed 


CAMPAGNA ABBONAMENTI !!! 


La rivista LASER COMPUTER CLUB, inizialmente, avrà una cadenza bimestrale. Ogni numero co- 


sterà L. 3.000. 


interpretarlo a proprio pia- 
cere. 

| valori numerici trasmessi 
dai JOYSTICK del LASER, 
in relazione alle direzioni 
(indicate come punti cardi- 


nali) sono: 

NORD=62 NORD-EST=54 
EST=55 SUD-EST=53 
SUD=61 SUD-OVEST-57 
OVEST=59 
NORD-OVEST=58 
PULSANTE DI SINISTRA 
(FIRE)=47 


CONDIZIONE DI RIPOSO 
(nessuna direzione) = 63. 
Per i computer LASER 110/ 
210/310 l'interrogazione 
delle porte può essere fatta 
con l'istruzione BASIC INP 
(n.ro) indicando tra paren- 
tesi il numero della PORTA. 
Per il computer LASER 500, 
occorre usare l'istruzione 
JOY. 

Per il JOYSTICK di destra è 
necessario interrogare la 
PORTA 46, mentre per il 
JOYSTICK di sinistra è ne- 
cessario interrogare la 
PORTA 43. 

Il pulsante di DESTRA di 
entrambi i JOYSTICK può 
essere scandagliato inter- 
rogando la. PORTA 37, e 
fornisce il valore 47 se il ta- 
sto é stato premuto, o il va- 
lore 63 se non è stato pre- 
muto. 

NOTA: Tutti i valori indicati 
sono valori DECIMALI. Û 





Può essere richiesta alla ARCA s.a.s. - Laser Computer Club - via Valleggio 2, 22100 COMO, 
allegando L. 3.000 in francobolli, oppure sottoscrivendo l'abbonamento annuale (1 numero GRATIS!!). 


Desidero sottoscrivere un abbonamento annuo alla rivista LASER COMPUTER CLUB (6 numeri, L. 15.000). 
Per il pagamento dell'importo dovuto attendo vostro bollettino di versamento postale. 
Vogliate inviare la rivista al seguente indirizzo: 


Cognome 


|. Nome 








Via 


Cap 








Prov. 


La presente offerta è valida solo per l'Italia e solo dall'1.1.86 al 31.3.86. 


Data | 


_ Firma —— 


SI RACCOMANDA DI SCRIVERE IN STAMPATELLO. 


Ritagliare e spedire in busta chiusa a: 





ARCA s.a.s. - LASER COMPUTER CLUB - Via Valleggio 2 - 22100 COMO 
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Editoriale 


Sommario 


POSTA E TELEFONO 1 
TRUCCHI REGOLE E CONSIGLI: 


Text editor 
(elaborazione testi) 2 


INFORMAZIONI: 
Il “Sistema” LASER 500 


SOFTWARE: 

Conto corrente 

Calendario perpetuo 
Scomposizione in fattori primi 
Sillabando 1 
Minimo comune multiplo e 
massimo comune divisore. 11 
Controllo codice fiscale 

e partita IVA 11 


A 


© O ON 


La combinazione 13 
Regressori lineari i 15 
Invaders 16 


IL LASER NASCOSTO: 
Paint per Laser 310 17 
Laser 500 : Testo in grafica 20 





Anno nuovo, Laser nuovo! Con |86 e con il numero 1 
della rivista entra in scena anche un nuovo computer, 
il Laser 500, un computer davvero potente e real- 
mente semiprofessionale. Per gli impazienti, l'articolo 
è a pag. 4. Chi ha invece la costanza di terminare que- 
sto breve editoriale voglio segnalare a pagina 17 un 
programma di grafica per il Laser 310 che integra in 
maniera ottimale quello pubblicato sul nr. 0 della rivi- 
sta e che rende la gestione grafica del 310 estrema- 
mente semplice e davvero utilizzabile in tutta la gam- 
ma delle sue prestazioni. 

Grosse novità anche per i patiti del linguaggio mac- 
china: inizia con questo numero la pubblicazione a 
dispense (vedere pagine centrali della rivista) della 
ROM del Laser 110/200/210/310. Non si tratta ancora, 
come spiegato più avanti, di un commento passo 
passo di tutte le locazioni di memoria. Si possono tut- 


tavia estrapolare numerose routines in L.M. ed utiliz- 
zarle, richiamandole opportunamente, anche іп Ba- 
sic, sfruttando la velocità di esecuzione davvero note- 
vole del Laser 310. 

Per chi infine non sa che farsene della grafica in alta ri- 
soluzione e non ha tempo o voglia di divertirsi a gio- 
care con il computer ma, al contrario, preferisce po- 
tersi gestire, che so, il conto corrente piuttosto che 
l'agenda elettronica piuttosto che il budget familiare 
piuttosto che il ricettario, a partire da questo numero 
troverà utili programmi gestionali. 

Un appello, e chiudo, a tutti i lettori: attendiamo propo- 
ste, consigli e suggerimenti per rendere la vostra rivi- 
sta sempre più attuale e uniformarla ai gusti della 
maggioranza. O 





IL DIRETTORE 


1 
Solo per LASER 500 
MINE KILLERS | terroristi semi- 
nano pericolose mine in un im- 
portante porto. 
Voi siete i custodi della tranquil- 
lità di migliaia di persone, e del- 
la Pace nel paese. 
E necessario eliminare tutte le 
mine dal porto, facendo atten- 
zione a non colpire le numero- 
se navi che transitano. O 
14 





CRASH Controlla la tua auto e 
cerca di prendere tutti i tesori 
che incontri sul percorso cer- 
cando di evitare le altre automo- 
bili. 


02 


MATHS FUN І Genera diver- 
tenti problemi di matematica per 
bambini in età prescolare. So- 
no possibili diversi livelli di 
difficoltà. 

01 


MATRIX Permette di eseguire 
calcoli matricali (somma di ma- 
trici, moltiplicazioni per un valore 
scalare, moltiplicazione fra ma- 
trici). 

03 


POWER LOADER 
11 


SPACE VICE Una morsa spa- 
ziale stringe la tua astronave. Di- 
struggi il maggior numero di ro- 
bot prima di essere stritolato... 
e forse puoi salvarti. 

10 


BOXE Incontro di pugilato sui 
7 round. Evitare di finire spes- 
so al tappeto. Solo con joystick. 


13 


Solo per LASER 500 

LASER 500 PAINT UTILITY 
Questo programma consente 
di realizzare qualsiasi disegno, 
in alta risoluzione, con 16 colori 
a disposizione. 

Alcune delle funzioni principali: 
— Disegnare, cancellare, cor- 
reggere punto per punto. 

— Colorare un’area con uno dei 
16 colori disponibili. 

— Salvare su nastro il disegno 
fatto. 

— Richiamare da nastro il dise- 
gno precedentemente salvato, 
con possibilità di correggerlo e 
salvarlo di nuovo. 

— Inserire un qualsiasi testo nel 
disegno in alta risoluzione. 

| disegni realizzati con questo 
programma potranno essere 
usati in altri programmi, di gio- 
со, statistica, о altro. O 
15 





COSMIC RESCUE Pericolosa 
missione nel cuore del sistema 
solare meteoritico. Solo i migliori 
Sopravvivono e realizzano il sal- 
vataggio cosmico. Solo con 
Joysticks. 64 


CIRCUS La vita dei tuoi amici 
é nelle tue mani. Sono acrobati 
del circo e la loro sicurezza di- 
pende dalla tua abilità. Devi riu- 
scire a farli atterrare o la loro ga- 
ra finisce. Un gioco di azione in 
linguaggio macchina. 07 


F - 104 Gioco di azione nei cie- 
li alla caccia di aerei nemici. 
Molto veloce, prevede 3 livelli di 
difficoltà. Solo con joystick. 08 
FORMULA UNO Supera tutte 
le auto e realizza il miglior pun- 
teggio! 09 

ALIEN Mostri spaziali attacca- 
no la terra. Il grande avvoltoio 
cercherà di distruggerti.... 

12 


Solo per LASER 500 

MOON LANDER La luna è or- 
mai diventata una base ‘avan- 
zata del pianeta Terra ma ogni 
viaggio verso il satellite ripro- 
pone il problema della discesa 
sul suolo lunare, che deve es- 
sere eseguito con competenza 
dagli astronauti. 

E necessario evitare gli asteroi- 
di che sfecciano numerosi 
nell'oscurità dell'Universo. 
Occorre controllate la velocità 
di impatto, per non distruggere 
il modulo lunare. 

Le manovre non sono semplici, 
a causa della ridotta gravità 
della luna (circa 1/6 di quella 
terrestre). 

BUONA FORTUNA!!! 
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6 IN ONE FUN 6 giochi per 
esercitare la mente. Gare di de- 
duzione, giochi di calcolo, indo- 
vinelli. Si gioca contro il compu- 
ler. 06 


NOTA BENE 

Per ordini di importo superiore a 
L. 30.000 spese di spedizione 
L. 2.000. Per ordine di importo in- 
feriore a L. 30.000, spese di spe- 
dizione al costo. 





Solo per LASER 500 

CITY INVASION Entusiasman- 
te gioco spaziale, con scenario 
in grafica ad alta risoluzione, ed 
ambientazione molto suggesti- 
va. 

Gli invasori sono arrivati a Co- 
mo!!! 

Il Tempio Voltiano, che conser- 
va le più importanti documen- 
tazioni dell'attività di Alessan- 
dro Volta, è minacciato dagli 
invasori. 

E necessario intervenire tem- 
pestivamente con tutti i mezzi a 
disposizione, per difendere il 
tempio, ed il mondo. O 
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TENNIS Gioco di azione tridi- 
mensionale. Si puó giocare con- 
tro il computer oppure tra due 
giocatori. Utilizzabile sia tastie- 
ra sia joystick. 05 


Per ordinare i programmi ritagliare o (fotocopiare) il tagliando, compilar- 


lo e spedirlo all'indirizzo indicato. 


(contrassegnare i codici) 





C/O W. SCHEIDEGGER & CO. S.a.s. 
Via Valleggio, 2 - 22100 COMO (Tel. 031/275088) 


Desidero ricevere i seguenti giochi a L. 10.000 cadauno: 
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per una spesa totale di L. ................. desea | 
Pagherò contrassegno l'ammontare dovuto, più spese postali, al 

ricevimento di quanto ordinato. 
COGNOME: tome 
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Arriva nel tuo comune 


Per te che ti appresti a fare 
l'ingresso nel mondo 

del lavoro, il computer è la 
via di accesso ad una 
lunga serie di qualificate 
professioni. 


Per te che lavori, che 

aspiri a far carriera 

o a semplificare la gestione 
della tua attività, il 
computer è un valido 
partner 


Per te e per quanti come te, 
desiderano imparare 

a dialogare con il computer 
ed a programmarlo, la 
Scuola Scheidegger 
organizza, proprio nel tuo 
comune, il nuovo 

Corso Computer Basic. 

Il corso che, per l'estrema 
semplicità con la 

quale vengono trattati anche 
i temi piü complessi, risulta 
facilmente comprensibile 
anche per i piü giovani. 


Per te che ti affacci alla 
vita, per soddisfare la tua 
voglia di giocare e di 
apprendere sempre cose 
nuove, il computer è un 

^ compagno di giochi 
imbattibile ed un maestro 
qualificato e paziente. 





il nuovo Corso Computer Basic 


Materiale in dotazione del Corso: 

Computer LASER - Registratore - Testo istruzioni e sintassi Basic - Testo esercizi - Cassetta per 
contenere i programmi - Block Notes - Matita - Gomma - Pennarello - Elegante borsa per 
contenere il materiale del Corso. 


Spedire oggi stesso l'unito tagliando in busta chiusa o su 
cartolina postale a Scuola Scheidegger - Via Castelnuovo, 2 те < 
22100 Como à : 


Г SCUOLA 


Desidero senza impegno informazioni sul Corso Computer Basic 


Nome 





Cognome 





Via Cap. 
Città 








Telefono 











